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

---

344(1): 2015/01/14(水)23:01 ID:+qvvUh8r(1) AA×
>>1

2chｽﾚ:tech

[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
に日本語を入れたいのですがそれだとマッチしませんどうすればよいでしょうか

---

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

---

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

---

ぬこの手 ぬこTOP 0.021s