Perl初心者スレ（マジレス回答）

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

1(5): デフォルトの名無しさん [sage] 2012/10/07(日) 00:48:39.00 AAS
どうぞー

3: デフォルトの名無しさん [] 2012/10/07(日) 01:10:26.82 AAS
>>1
おつ！
ありがとうございます

4(1): デフォルトの名無しさん [] 2012/10/07(日) 01:46:15.82 AAS
マジレス？
じゃあ遠慮なく

>>1
板荒らすために立てたんじゃないならさっさと削除依頼しろクズ
本スレでさえ閑古鳥が鳴いてるのに次スレ立てるから荒らし予備軍の温床になってんだよ
今日の糞スレ乱立を見ればわかるだろ

7: デフォルトの名無しさん [sage] 2012/10/07(日) 02:35:42.93 AAS
>>1
基地害乙

137: デフォルトの名無しさん [sage] 2013/01/20(日) 14:13:55.60 AAS
WEBプログラミング＠2ch掲示板でも

4 名前：nobodyさん投稿日：2013/01/16(水) 03:05:27.12 ID:???
カップ麺スレ

5 名前：nobodyさん投稿日：2013/01/16(水) 04:54:54.33 ID:???
＜前スレで出た話題＞
カップラーメン
カップ焼きそば
ユーリンチー
カレー
水分の多い食品に揚げ物を入れる件
くずもち

その他詳細などについては>>1のリンクを参照

6 名前：nobodyさん投稿日：2013/01/16(水) 20:45:34.73 ID:???
高級な料理や食品に関しての話題が出ないわけだがｗ

2chｽﾚ:php Perlコーディング初心者質問スレ Part 65

344(1): デフォルトの名無しさん [sage] 2015/01/14(水) 23:01:56.10 ID:+qvvUh8r(1) AAS
$seach_wordに日本語を入れたいのですが、それだとマッチしません。どうすればよいでしょうか?
w3m -dump -cols 160 2chｽﾚ:tech| ~/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 .= $_;
}

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

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

ぬこの手ぬこTOP 0.056s