perlでテキストから顔文字を抽出するプログラム

質問

テキストファイルから顔文字を抽出するプログラムを作りたいのですが、行き詰まっています。

一応、正規表現の内容としては、
半角と全角の括弧と前後の記号っぽいものを抽出し、
括弧の中身が「3文字以上半角英数字/全角文字列が続かないもの」という条件で、
抽出すれば上手くいくのかなぁと考えているのですが、上手くperlで表現できていない状態です。

どなたかプログラムに詳しい方で、ソースを記述できる方がいれば、よろしくお願いいたします。

回答No.1

Gletscher

無理でしょう。
どの文字から始まって、どの文字で終わっているか分からないですから、無限の可能性があります。
(^.^)ノドモドモ　　　♪ d(⌒o⌒)b♪　　　V（＾0＾）V　　(^^ゞ　　_(・・ ))キョロ(( ・・)キョロッ　　　┌|∵|┘

すべて始まりと終わりが違いますよね？

お礼

回答ありがとうございます。
この設計では無理ですか。。。
抽出率は完全でなくてもよいので、なにか
良いアイディアはありますでしょうか？
正規表現に全く疎いため、記述してくだされば、本当に助かります。。。