# 正規表現によるマッチング warn "has nondigits" if /\D/; warn "not a natural number" unless /^\d+$/; # -3は拒否する warn "not an integer" unless /^-?\d+$/ # +3は拒否する warn "not an integer" unless /^[+-]?\d+$/; warn "not a decimal number…

英語の性が２つあり、これらの性の発音がスペルとは関係なく似ているかどうかを知りたい。"Smith"と"Smythe"など。 # 方法1 use Text::Soundex; $CODE = soundex($STRING); @CODES = soundex(@LIST); # 方法2 use Text::Metaphone; $phoned_words = Metaphon…

変数に設定した値を変更できないようにしたい。 # 展開できるスカラー変数にする必要がない場合 use constant AVOGADRO => 6.0225e23; printf "You need %g of those for guac\n", AVOGADRO; # スカラー変数にする必要がある場合 *AVOGADRO = \6.0225e23; pr…