perl-定型処理 - Fieds_labo1

perl 定型処理

• trim
  • 前後の空白文字を削除：s/^\s*(.*?)\s*$/$1/;
  • 前後のスペースを削除する
  • PerlでTrimする！
  • これがいいかも
  • $string =~ s/^\s+//;
  • $string =~ s/\s+$//;
  • 全角の場合
  • 対象$stringはSJISテキストファイルから読み込み
  • $string = decode('cp932',$sjis-text);
  • $zenspc = decode('cp932',"\x81\x40");
  • $string =~ s/^$zenspc+//;
  • $string =~ s/$zenspc+$//;