Perlメモ/正規表現のコンパイル - Walrus, Digit.検索文字列で、ワイルドカードとして"*"を使用できるという記法をよく見かけます。 以下のサブルーチンは、この記法で指定された、1つあるいは複数のマッチング文字列に相当する正規表現を返します。 sub make_wildcard_regex { my @keys = @_; return undef unless (@keys); my $pattern = join('|', map { s/([^\*]+|\*)/$1 eq '*' ? '.*' : "\Q$1\E"/ge; $_; } @keys); return qr/$pattern/; } 以下はこのサブルーチンを使用するサンプルです。 my @urls = ( 'http://digit.que.ne.jp/', 'http://digit.que.ne.jp/index.htm', 'http://digit.que.ne.
