2008-05-27 trimは正規表現を使う Perl Perlにはtrimはないので、正規表現を使うらしい。 ↓こんな感じ。 $str =~ s/^\s+(.*?)\s+$/$1/; ■追記 ↓こっちの方が正しいかも? $str =~ s/^\s*(.*?)\s*$/$1/;