正規表現を組み立てるモジュール
Regexp::Assemble を使うと、正規表現をほぼ自動的に生成できます。 perl - Regexp::Assemble のススメも参考になります。
use Regexp::Assemble; my $ra = Regexp::Assemble->new; $ra->add( 'ab+c' ); $ra->add( 'ab+-' ); $ra->add( 'a\w\d+' ); $ra->add( 'a\d+' ); print $ra->re; # prints a(?:\w?\d+|b+[-c])
例のように非常に簡単に使うこともできますし、工夫するとメールアドレスや電話番号の正規表現を生成したり、自ら成長する正規表現を生成したりもできます。使ってみると結構楽しめるモジュールです。