Mail::Address::MobileJp - mobile email address in Japan
use Mail::Address::MobileJp; my $email = '123456789@docomo.ne.jp'; if (is_mobile_jp($email)) { print "$email is mobile email in Japan"; } # extract mobile email address from an array of addresses my @mobile = grep { is_mobile_jp($_) } @addr;
Mail::Address::MobileJp is an utility to detect an email address is mobile (cellphone) email address or not.
This module should be updated heavily :)
This module exports following function(s).
$bool = is_mobile_jp($email);
returns whether $email is a mobile email address or not. $email can be an email string or Mail::Address object.
$email
$bool = is_imode($email);
returns whether $email is a i-mode email address or not. $email can be an email string or Mail::Address object.
$bool = is_vodafone($email);
returns whether $email is a vodafone(j-sky) email address or not. $email can be an email string or Mail::Address object.
$bool = is_ezweb($email);
returns whether $email is a ezweb email address or not. $email can be an email string or Mail::Address object.
$bool = is_softbank($email);
returns whether $email is a softbank email address or not. $email can be an email string or Mail::Address object.
Tatsuhiko Miyagawa <miyagawa@bulknews.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Mail::Address, http://www.mag2.com/faq/mobile.htm
To install Mail::Address::MobileJp, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mail::Address::MobileJp
CPAN shell
perl -MCPAN -e shell install Mail::Address::MobileJp
For more information on module installation, please visit the detailed CPAN module installation guide.