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

---

352: 349 2015/01/19(月)22:36 ID:bxHKMq/8(1) AA×
>>346


[240|320|480|600|原寸|GIF|べ|ﾚｽ栞|ﾚｽ消]
352: 349 [sage] 2015/01/19(月) 22:36:30.03 ID:bxHKMq/8 >>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 .= $_; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/352
ヒント助かった 日本語

---

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

---

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

---

ぬこの手 ぬこTOP 0.015s