フリーメールの判別方法

[0011 名無しさんに接続中… 02/01/03 10:23 ID:KWfhi5kb]

>>9
6 の　逆かけばいいだろｱﾌｫ
my($user,$sv) = split(/\@/,$FORM{mail});
if($sv eq "yahoo.com"){
　　print "このメールアドレスは使用できません。";
　　exit;
}