Perl初心者スレ（マジレス回答） (523ﾚｽ)

Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

346: デフォルトの名無しさん [sage] 2015/01/15(木) 09:40:11.27 ID:+X0UBnJQ あ、 binmode STDIN , ":utf8": で http://mevius.5ch.net/test/read.cgi/tech/1349538519/346

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

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.015s