C言語ステートマシンでメールアドレス判定しようとおもったが力尽き

http://blog.livedoor.jp/dankogai/archives/51189905.html ですよねー

echo '$mail_addr=shift @ARGV;'  > /tmp/code
echo 'print $mail_addr;'  >> /tmp/code

wget -O -  http://search.cpan.org/~rgarcia/perl-5.10.0-RC1/pod/perlfaq9.pod \
| perl -nle 'print if /matches the address itself:/../Just match an address against/ ' \
| perl -nle 'print if /<pre/../<\/pre/ ' \
| perl -ple 's/<\/?pre>// '  >> /tmp/code

echo 'if ($mail_addr=~/^${addr_spec}$/) { print " <-valid" }else{ print " <-invalid" };' >> /tmp/code

perl  /tmp/code da.me..@docomo.ne.jp

da.me..@docomo.ne.jp <-invalid

perl  /tmp/code dankogai+regexp@gmail.com

dankogai+regexp@gmail.com <-valid

ですよねー

PHPってあの忌み嫌われたSSIの焼き直しだから(ぉ
嫌がられて当然だと思うのは漏れだけですね