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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

344: デフォルトの名無しさん [sage] 2015/01/14(水) 23:01:56.10 ID:+qvvUh8r $seach_wordに日本語を入れたいのですが、それだとマッチしません。どうすればよいでしょうか? w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/| ~/Perl_instance/resSearch.pl #!/usr/bin/env perl use strict; use warnings; use utf8; my $seach_word = ">1" ; my $found_res　= 0; my $res　　　　= ""; while (<>) { 　　if (/^\d/x) { 　　　　# out put, flash 　　　　if ( $found_res == 1 ) { 　　　　　　print $res; 　　　　　　$found_res = 0; 　　　　} 　　　　$res = ""; 　　} 　　else { 　　　　# searching 　　　　if (/$seach_word\b/x) { 　　　　　　$found_res = 1; 　　　　} 　　} 　　# buffer lines 　　$res .= $_; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/344

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.199s*