正規表現の作成
Regexp::Assembleモジュールを使うと、与えた文字列にマッチする正規表現を作成できます。
use strict;
use encoding 'shift-jis';
use Regexp::Assemble;
my $regexp = new Regexp::Assemble;
$regexp->add('日本人');
$regexp->add('日本海');
$regexp->add('日本新記録');
$regexp->add('日の丸');
$regexp->add('Perl');
$regexp->add('PHP');
print $regexp->re, "\n";
