单行匹配多次的问题

grshrd49

我想计算出字符串中单词a和b的数量,是不是只有用这样的两次循环呢? 有没有更好的方法来做?

1. $s = "aaabbbaacccbbbddaadeee";
   
2. $an = 0;
   
3. $bn = 0;
   
4. $an++ while($s =~ /a/g);
   
5. $bn++ while($s =~ /b/g);

复制代码

iamlimeng

1. $s = "aaabbbaacccbbbddaadeee";
   
2. $an = () = ($s =~ /a/g);
   
3. print "$an\n";
   

复制代码

jason680

回复 1# grshrd49

Would you like this ...

# perl cnt.pl
a=7
b=6

# cat cnt.pl
use strict;
use warnings;

$_ = "aaabbbaacccbbbddaadeee";

my @aCnt = qw/a b/;
my %hCnt = map { $_ => 0 } @aCnt;

while(m/(.)/g){
  $hCnt{$1}++ if(exists $hCnt{$1});
}
foreach(@aCnt){
  print "$_=$hCnt{$_}\n";
}

   

grshrd49

回复 3# jason680


    这个有意思!
定义一个hash 然后循环这个字符串 验证是否存在与hash列表中的key

grshrd49

回复 2# iamlimeng


  这个是只匹配了一个单词呀?

yinyuemi

回复 1# grshrd49

1. perl -le '$s = "aaabbbaacccbbbddaadeee";
   
2. $h{$&}++ while $s=~/./g;
   
3. print $h{b};
   
4. print $h{a}'
   
5. 6
   
6. 7
   
7. 
   

复制代码

grshrd49

回复 6# yinyuemi


    不是看得懂你的写法 能稍微解释一下嘛

lucash

my $hash;
$s =~ /(a|b)(*PRUNE)(?{$hash->{$&}++})(*FAIL)/;
print $hash->{'a'}
print $hash->{'b'}

104359176

为什么要追求更多的解决一个问题的方法呢？

afukada

取代加字串長度?

1. $s="aaabbbaacccbbbddaadeee";
   
2. 
   
3. foreach("a","b")
   
4. {
   
5.         ($st=$s)=~s/$_//g;
   
6.         print $_,"\t",length($s)-length($st),"\n";
   
7. }

复制代码