2011-06-01から1ヶ月間の記事一覧

文字列から前後の空白を削除する

Perl

#!/usr/bin/perl $str = " aaa bbb ccc "; print "With spaces: >>>", $str, "<<<\n"; $str =~ s/^\s+//; $str =~ s/\s+$//; print "Without spaces: >>>", $str, "<<<\n"; With spaces: >>> aaa bbb ccc Without spaces: >>>aaa bbb ccc はては記法のせいで…

s/// 演算子に区切り文字を使わない

Perl

区切り文字を使わず、前後の PATTERN 部分をかっこ類で括るだけでよいみたいだ。 #!/usr/bin/perl $str1 = $str2 = "aaa425bbb586ccc"; $str1 =~ s/[0-9]/_/g; print "区切り文字を使う：$str1\n"; $str2 =~ s{[0-9]}{_}g; print "区切り文字をわない：$str2…

return の置きどころ

Perl

#!/usr/bin/perl sub printMsg { print "Message\n"; return; } &printMsg; Message となる一方、 #!/usr/bin/perl sub printMsg { return; print "Message\n"; } &printMsg; となる。returnはサブルーチンから戻り値を返すだけでなく、その場でサブルーチン…