電話番号妥当性確認


 Number::Phone::JPモジュールを使うと簡単です。
use strict;
use Number::Phone::JP;

my $phone = Number::Phone::JP->new();
my @numbers = (
	'0120-111-111',
	'03-1234-5678',
	'03 1234 5678',
	'(03)12345678',
	'05-1234-5678',
	'090-1111-1111',
	'090-111-1111',
);
foreach my $tel (@numbers) {
	$phone->set_number($tel);
	unless ($phone->is_valid_number) {
		print "$tel は正しくありません。\n";
	}
}

関連項目


なし