メールアドレス判定 if( isMailAddress('m.ka-tsu-be@ichikoro.com') ){ print "メールアドレスです。\n"; } else{ print "メールアドレスではありません。\n"; } #--------------------------------------- #メールアドレスかチェックする #---------------…

絵文字にマッチさせる正規表現 #Shift_JIS体系におけるコード my $ascii = '[\x00-\x7f]'; #ASCIIと制御文字 my $two_bytes = '[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]'; #漢字 my $h_katakana = '[\xa0-\xdf]'; # 半角カタカナ #絵文字コード正規表現 my…