テキストファイルに「今日の天気（てんき）は晴れ」という文章が書かれてい

質問

テキストファイルに「今日の天気（てんき）は晴れ」という文章が書かれていたとします。
これを

open(IN,"<log.txt");
flock(IN,1);
@log=<IN>;
foreach(@log){
print "$_";
}

というプログラムで開いたとき、「$_」に代入されている「今日の天気（てんき）は晴れ」の「天気（てんき）」の部分を「<ruby><rb>天気</rb><rp>（</rp><rt>てんき</rt><rp>）</rp></ruby>」に置換したいのですが、どうしたらよいのでしょうか？
「天気」の方は「s/([亜-煕]|[一-龠])/$1/g;」で認識するんですが、「（てんき）」はどうすればいいのか分かりません。

回答No.2

kmee · ベストアンサー

Perlのバージョンは何でしょうか?
スクリプトとlog.txtの文字コードはなんでしょうか?

正規表現で日本語を使うには、いろいろと準備が必要です。
例えば
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
など。

>s/([亜-煕]|[一-龠])/$1/g;
これは、([亜-煕]|[一-龠])にマッチした文字を、マッチした文字列そのもので置き換えています。つまり、置き換え前後でなにも変わらない、ということです。
例えこれが1バイト単位で処理されていて
(亜の1バイト目|[亜の2バイト目～煕の1バイト目]|煕の2バイト目]...
という風に解釈されていたとしても、です。そして、[あ-ん]でエラーになるということは、1バイト単位で処理されている可能性が高いです。

正しく文字コード関連の設定をしてあって、Perl 5.8以降なら
s"(\p{Han}+)\((\p{Hiragana}+)\)"<ruby><rb>$1</rb><rp>（</rp><rt>$2</rt><rp> ) </rp></ruby>"g
になります。
# 念の為。
# sの後は/以外の文字も使えます。今回は#1さんにならって"を使いました。
# 表現中に/が多く使われる場合、/以外の文字にしておくと、いちいち\/を使う必要が無くなります。

回答No.1

Tacosan

「天気（てんき）」の部分を「<ruby><rb>天気</rb><rp>（</rp><rt>てんき</rt><rp>）</rp></ruby>」に置換したい
というなら最も簡単なのは
s"天気（てんき）"<ruby><rb>天気</rb><rp>（</rp><rt>てんき</rt><rp>）</rp></ruby>"g
じゃないかなぁ. 「何も考えていない」といわれそうだけど.
「（なんとか）」にマッチさせるなら s"（([^）]*)）"<rp>（</rp><rt>$1</rt><rp>）</rp>"g とか.

補足

あ……では「昨日の天気（てんき）は雨だったが今日は快晴（かいせい）だ」とあった場合に、
「天気（てんき）」と「快晴（かいせい）」の部分をルビ振り状態で置換したい時はどうすればいいですか？
平仮名の部分を([あ-ん])としたら500エラーが出ました。([亜-煕]|[一-龠])で漢字を認識させるのは平気なのにどうして平仮名は認識せずにエラーが返るのでしょう？