モバイル端末（携帯電話）等のメールアドレスを判別するには？

モバイル端末であるかどうかで挙動を変更したい場合、どのように判別したらよいか。

スポンサードリンク

#モバイルと判定するドメイン2008.01現在利用可能なリスト
sub is_mobile_mail{
my $mail = shift or die(‘SKE: no mail’);
return 1 if $mail =~ m/\@(docomo|softbank|ezweb|[dhtkrsnqc]\.vodafone|pdx|d[kij]\.pdx|wm\.pdx”.”|em\.nttpnet|pipopa|.*sky\.tu-ka|.*sky\.tk[ck]|jp-[dhtkrsnqc]|t[2-9]\.ezweb)\.ne\.jp$/i;
return 1 if $mail =~ m/\@bandai\.jp$/i;
return 0;
}