かなり使えるPerl正規表現のまとめ - ”><xmp>TokuLog 改メ tokuhirom’s blog

■かなり使えるPerl 正規表現のまとめ

よくつかう正規表現はCPANモジュールにはいってるのをつかうのが楽じゃないでしょうか。Perl の場合だと、よくつかう正規表現は CPAN モジュールとしてアップロードされています。

また、そういったモジュールをまとめて validation library としてつかえるようになっているので、それを見ればいいだけなので、まとめブログとか書く必要はありませんね。

楽をしたければ、validation library を素直につかいましょう。

use strict;
use warnings;
use utf8;
use Test::More;

plan tests => 6;

# valid?
{
    use Regexp::Common qw/zip net SEN URI/;
    like 'http://example.com/', qr!$RE{URI}{HTTP}!,     'http uri';
    like '12345-5434',          qr!$RE{zip}{US}!,       'us zip';
    like '333-23-2329',         qr!$RE{SEN}{USA}{SSN}!, 'us ssn';
    like '192.168.1.1',         qr!$RE{net}{IPv4}!,     'ipv4';
}

# valid japanese phone number?
{
    use Number::Phone::JP qw/mobile PHS/;
    ok( Number::Phone::JP->new('090-6423-5550')->is_valid_number,
        'jp phone number' );
}

# valid credit-card number?
{
    use Business::CreditCard ();
    ok Business::CreditCard::validate('378282246310005'), 'credit card';
}


# valid email address?
{
    use Email::Valid::Loose;
    ok(Email::Valid::Loose->address('read_rfc822.@docomo.ne.jp'));
}

# note: Regexp::Common::CC doesn't works.