Regexp::Assemble 便利っぽい

にぽたん研究所 - 二度目の公開！電話番号の正規表現 で、紹介されてた Regexp::Assemble がとっても便利そうなのでメモメモ。

  use Regexp::Assemble;
  
  my $re = Regexp::Assemble->new;
  $re->chomp(1);
  $re->add(<DATA>);
  print $re->re;

__DATA__
104
103
102

ってな感じで、正規表現としてマッチさせたいデータを流し込むと、解析してマッチさせるための正規表現を作ってくれちゃう、便利そうなモジュール。

Google - Regexp::Assemble
ってか、ずいぶん前から紹介されてたんだね、、、orz
今度、機会があったら試してみよう。