くだすれPerl（超初心者用）2

くだすれPerl（超初心者用）2 at PHP

63:47
08/04/07 07:06:59
誰向けでもなく一応のフォロー。　
my $cnt = 0 ;
while(<>){
　print $cnt . q{ } . $_ if $cnt != 0 or m{<span>}i ;
　$cnt += m{<span>}ig ;
　$cnt -= m{</span>}ig ;
}

>>62
my @res = $contents =~ m{<li>(.*?)</li>}gs ;

次ページ

続きを表示

1を表示