犬ターネット

PHPだと正規表現は以下のように文字列で渡せばいいんだけど、

Perlで似たようなことしてもうごかない。

じゃどうするかというと「qr」と「eval」使って、コンパイル済み正規表現をつくる。

テキスト保存されてる正規表現をコンパイルしたかったから仕方なくこんな感じにしたけどなんか気持ちわるい。他にいい方法はないのかなあ...