Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新

---

352: 349 2015/01/19(月)22:36 ID:bxHKMq/8(1) AAS
>>346
ヒント助かった。

use Encode qw/encode decode/;
my $enc = 'UTF-8';
sub d($) { decode($enc, shift) }
sub e($) { encode($enc, shift) }

my $seach_word = "日本語";

my $found_res = 0;
my $res　　　 = "";

while (<>) {
　　if (/^\d/x) {
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　my $seach_word_ = e$seach_word;
　　　　if (/$seach_word_/x) {
　　　　　　$found_res = 1;
　　　　}
　　}
　　$res .= $_;
}

---

上下前次1-新書関写板覧索設栞歴

---

あと 171 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.006s