メールアドレス判定

MTをダウンロードしてながめてたらおもしろいコードを見つけた。

my $cnt = $_ =~ tr/@/@/;
die "Invalid email address" if $cnt != 1;
die "Invalid email address" if /[\r\n,]/;
  • 最初に@の数を数えている。
  • @が1つじゃなければ、不正なアドレス。
  • 改行・コンマが含まれてたら、不正なアドレス。

なるほどね~
と思ったがこんなんでいいのか?!

Leave a Reply