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

wanguan2000

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

谢谢了

猪鼻插葱

用grep吧

Wayne_sama

其实它返回的就是匹配次数~~~

churchmice

1. 
   
2. !/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my ( $test, $count1, $count2 );
   
6. $test   = "12ty343ty45wa5ttt5ty6wa788wa8ty894";
   
7. $count1 = () = $test =~ m/wa/g;
   
8. $count2 = () = $test =~ m/ty/g;
   
9. print "$count1,$count2\n";
   

复制代码

x9x9

楼上的要去掉结尾的."\n"才行吧，报错啊。

shangat

1. my $a="12ty343ty45wa55ty6wa788wa8ty894";
   
2. my @arr = split /wa/,$a;
   
3. print @arr - 1."\n" ;

复制代码

laohuanggua

回复 9# ly5066113


谢谢！

ly5066113

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

复制代码

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

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

怒剑狂啸

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