请管理员删帖 谢谢

albert198511

原帖由 yashiro_lj 于 2009-7-8 10:32 发表
$x = "cat dog house"; # 3 words
    while ($x =~ /(\w+)/g) {
        print "Word is $1, ends at position ", pos $x, "\n";
    }
perlrequick中自带的示例，请参考。

BTW，你有没有看perlrequick ...

这个示例看了啊。。。。

输出：
   Word is cat, ends at position 3
   Word is dog, ends at position 7
   Word is house, ends at position 13

不过没有统计。。 只是记录匹配的字符串及其位置。。。还是不清楚该如何统计个数。。。。

再就是
while( <in_fp> )
    {
        if(my $var =~ m/(\.)/)
        {
            print $var;
            if(m/OK/)
            {
                $passed = $passed + 1;
            }   
            $total = $total + 1;
        }
    }
  “print $var;”打印为空，并且passed和total都为0。。。。。

yashiro_lj

不过没有统计。。 只是记录匹配的字符串及其位置。。。还是不清楚该如何统计个数。。。。

都能记录一个字符中循环匹配的位置了，难道还不能统计匹配了多少次吗？

再就是
while( <in_fp> )
    {
        if(my $var =~ m/(\.)/)
        {
            print $var;
            if(m/OK/)
            {
                $passed = $passed + 1;
            }   
            $total = $total + 1;
        }
    }
  “print $var;”打印为空，并且passed和total都为0。。。。。

这样写根本就没有执行print $var语句，请参考6楼的回复和perlop中关于绑定符=~的说明

albert198511

原帖由 yashiro_lj 于 2009-7-8 11:04 发表

都能记录一个字符中循环匹配的位置了，难道还不能统计匹配了多少次吗？


这样写根本就没有执行print $var语句，请参考6楼的回复和perlop中关于绑定符=~的说明

谢谢大侠指点！ 已经改过来了！ 呵呵