Mail_Address_MobileJp.php

is_mobile_jp()だけ

@see Mail::Address::MobileJp
http://search.cpan.org/~tanimoto/Mail-Address-MobileJp-0.04/lib/Mail/Address/MobileJp.pm

function isMobileJp( $email )
{
    $regex_imode    = '^(?:ｉモード)$';
    $regex_vodafone = '^(?:vodafone)$';
    $regex_ezweb    = '^(?:ezweb)$';
    $regex_mobile = '^(?:その他)$';

    $domain = substr( strstr( $email, '@' ), 1 );
    $regex = "(?:$regex_imode|$regex_vodafone|$regex_ezweb|$regex_mobile)";

    return $domain && preg_match( "/$regex/x", $domain );
}