5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

Perl初心者スレ(マジレス回答)

344 :デフォルトの名無しさん: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 .= $_;
}

93 KB
新着レスの表示

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50
名前: E-mail (省略可) :


read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)