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

shangat

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

复制代码

x9x9

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

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";
   

复制代码

Wayne_sama

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

猪鼻插葱

用grep吧