表現の抽出

質問

プログラミング初心者です。ウィンドウズの環境で、Perlは5.8を使っております。

先日、こちらで質問をしたのですが、うまくいかないことがあり、もう一度、質問いたします。文を切り分け、1列になっている下記のようなデータがあります。※秀丸で表示ができないほど、データがあります。
ここから、キーワードを指定して、表現を抽出したいと考えています。

[データ１]
日本
にとって
アメリカ
は
重要
な
貿易
国
です
。

例えば、「重要」という語をキーワードにするなら、下記のように前後３行を抜き出したいと思いました。

[データ２]
<重要>：にとって　アメリカ　は　重要　な　貿易　　国　

そこで実際に下記のようなものを作り、実行してみましたが、コンピューターの検索を入れると、うまくいきません。しかし、以下、部門、監査のみの実行ならうまくいきます。長音が問題なのかと思い、￥でエスケープも入れてみましたが、それでもうまくいきませんでした・・・・
何が原因なのでしょうか。

@lines = <>;
chop @lines;
for $i (3 .. $#lines-3) {
print "<以下>:\t$lines[$i-3]\t$lines[$i-2]\t$lines[$i-1]\t$lines[$i]\t$lines[$i+1]\t$lines[$i+2]\t$lines[$i+3]\n" if $lines[$i] =~ /以下/;
print "<部門>:\t$lines[$i-3]\t$lines[$i-2]\t$lines[$i-1]\t$lines[$i]\t$lines[$i+1]\t$lines[$i+2]\t$lines[$i+3]\n" if $lines[$i] =~ /部門/;
print "<監査>:\t$lines[$i-3]\t$lines[$i-2]\t$lines[$i-1]\t$lines[$i]\t$lines[$i+1]\t$lines[$i+2]\t$lines[$i+3]\n" if $lines[$i] =~ /監査/;
print "<コンピューター>:\t$lines[$i-3]\t$lines[$i-2]\t$lines[$i-1]\t$lines[$i]\t$lines[$i+1]\t$lines[$i+2]\t$lines[$i+3]\n" if $lines[$i] =~ /コンピューター/;
}

回答No.2

Tacosan · ベストアンサー

使っている文字コードを Perl に教えてやればいいんだけど....
use Encoding でいいのかなぁ?

お礼

ありがとうございました。
shiftjisの文字コードですべてうまく結果を出すことができました。

回答No.1

blue-horse

「うまくいきません」の内容も書いておいた方が、状況が判り易いかと思います。
まったく検索にヒットしないのか、ヒットするが件数が足りないのか、ヒットするが出力が意図した内容と異なるのか、…etc.

回答でなくごめんなさい。

以上、失礼いたします。

補足

いえ、こちらのほうこそ説明不足で、すみませんでした。
今の場合、「コンピューター」も含めて検索に入れると、全くヒットしないで、下記のような文章が出てきます。

Unmatched [ in regex; marked by <-- HERE in m/Rs[ <-- HERE ^[/at C:\Perl\test\search.pl line7.

「コンピューター」を抜くと、問題なく全ての語がヒットしました。