关于匹配次数的问题？？请教

wanguan2000

比如：
$a="12ty343ty45wa55ty6wa788wa8ty894";
$a=~/wa/;
就是怎样计算出$a中出现wa和ty的次数？？？？
wa多少次？
ty多少次？

谢谢了

apile

$count1=$a =~ tr/wa/wa/;
$count2=$a=~ tr/ty/ty/;
Sorry!我的方法錯了...
應該是..

1. 
   
2. #!/usr/bin/perl
   
3. $a="12ty343ty45wa5ttt5ty6wa788wa8ty894";
   
4. $count1=$a =~ s/wa/wa/g;
   
5. $count2=$a=~ s/ty/ty/g;
   
6. print "$count1,$count2\n";
   

复制代码

c1l2d3

while($a=~/wa/g){$count1++}
while($a=~/ty/g){$count2++}

c1l2d3

[quote]原帖由 "apile"]$count1=$a =~ s/wa/wa/g;[/quote 发表：


简洁好用，不太懂这样写，是上下文吗？

apile

看一下s///的definition...回傳值是替換了幾次...

wanguan2000

$count1=$a =~ s/wa/wa/g;
很好啊，但是看不懂，我觉得$count1就是$a啊，怎么会是次数啊？
高手利害

怒剑狂啸

就我个人的理解，perl是从右至左解释的.首先解释$a=~s/wa/wa/g，然后再进行传值，而这里的$a=~s/wa/wa/g，你可以把它看成一个函数，返回替换发生的次数。我初学时曾经犯了一个错误，导致程序调试了半天未能成功。我这样写的$a=s/bb/aa/，结果差之毫厘，谬以千里，perl解释成$a=$_=~s/bb/aa/

laohuanggua

指点下：

cat text
m.tansley       05/99   48311   green   8       40      44
j.lulu  06/99   48317   green   9       24      26
p.bunny 02/99   5555548 yellow  12      35      28
eee

返回的是
perl -lane '$a=join(";",@F);$count=$a=~s/(ee)/ee/g;print "$count";' text
1
1

1

如何只返回出含有两字母e的行？？

一个笨法子是：
perl -lane '$a=join(";",@F);$c1=$a=~s/ee/ee/g;$c2=$a=~s/eee/eee/g;print $a if($c1==1 && $c2==0);' text

求教：有没有直接获取匹配次数的模块？？

ly5066113

1. perl -ne 'print if /ee/ && ! /eee/' urfile

复制代码

laohuanggua

回复 9# ly5066113


谢谢！