- 88 名前：デフォルトの名無しさん mailto:sage [2008/05/10(土) 14:33:02 ]
- 目的：perlTk で GUI のテキスト検索ツールを作成しています。
状況：ユーザから入力された検索文字列の正規表現が不正であると、プログラムが
終了してします。 (invalid regular expression at * )
$search_string に格納された文字列が正規表現として有効であるかを、
eval を使って事前に評価したいのですが、どうしたら良いのでしょう？
if (eval (m/$search_string/)) ? これだと常に true が帰ってしまいます。
エロい人、教えてください。
