lc uc 使うだけ ネタ元 itsakura.com

前後のスペースを削除する関数作って使う $val = ' foo '; $val = trim($val); sub trim { my $val = shift; $val =~ s/^ *(.*?) *$/$1/; return $val; } ネタ元 mas3lab.net