ネタもないことだし、Regexp::Assemble #

こんなスクリプトを保存しておいて

 #!/usr/bin/perl
 use strict;
 use warnings;
 
 use Regexp::Assemble;
 
 exit unless @ARGV;
 my $r = Regexp::Assemble->new;
 $r->add($_) for @ARGV;
 print $r->re,"\n";

実行すると

 [name@host]$ regexp kawabata kazumichi
 (?-xism:ka(?:zumichi|wabata))

とかなって、横着できて便利

ネタもないことだし、Regexp::Assemble #

See Also