$w = 'BOOK@RFS.JP'; $w =~ tr/A-Z/a-z/; # 小文字に正規化 print $w,"\n"; > book@rfs.jp $cnt = $w =~ tr/././; # $w に含まれる . の数を数える print $cnt,"\n"; > 1 $w =~ tr/a-zA-Z/ /cs; # 英字以外をスペースに変換 print $w,"\n"; > book rfs jp $w…

oオプションは、対象となるパターンが変数を含んでいても、その変数は一回しか評価しない。 これによって、実行時のパターンの再評価を避けるころができる。（再評価しないためスピードアップ） 次の例では、$s =~ /$arg/o の$argの内容展開をループで毎回評…

s/// は置換で、 tr/// は変換。詳しくは、以下で！ http://www.rfs.jp/sb/perl/02/09.html