perl 统计字符串中特定字符出现的次数

    最近写程序遇到如题问题,从网上搜了一些相关技巧,如下:
            (利用数组和哈希的方法就不再列出了)
法一:
     #!/usr/bin/perl -w
            use strict;
            my $str = ‘abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopahkl;fjh#dsjfklpafj ‘;
            my $count = $str =~ tr/#/#/;
 统计了字符串$str 中出现的#的个数,在这里用到了转换操作符tr///,简单快速,当之首选。
附上s/// 和tr/// 的区别:
    s///: 替换运算符。s/searchpattern/repalcement/;默认搜索$ _,找出searchpattern,并且用replacement来替换整个匹配的正则表达式。该运算符返回匹配的数量或进行替换的数量,如果没有进行 任何匹配,则返回0。
当然也可以指定某个变量,如$perl=~s/searchpattern/repalcement/; 另外,替换运算符也可以使用非斜杠(/)的界限符,如s###.
    tr/// :转换操作符。tr///的作用与替换运算符有些类似,不过它并不使用正则表达式,而且它的运行方式完全不同。转换操作符的句法如下所示:tr /searchment/repalcement/;是把searchment的第一个字符换成replacement的第一个字 符,searchment的第二个字符换成replacement的第二个字符,类推 ~~~~~~~
      即:转换操作符t r / / /用于搜索一个字符串,找出searchlist中的各个元素,并用replacementlist中的对应元素对它们进行替换。如果r e p l a c e m e n t l i s t是空的,或者与s e a r c h l i s t相同,那么t r / / /将计算并返回匹配的字符。目标字符串并不被修改。
法二:
my $var = ‘TCTCATGTGAAAAACTATATCAATAATATAAAAACA’;
my $count = ($var =~ s/A/A/g);
print $count;
 计算字符串  $var  中出现的A字符,用到了正则匹配s///g 。
法三:
my $str = ‘abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopahkl;fjh#dsjfklpafj ‘ ;
my $cc = 0;
my $tmp = 0;
if( $tmp = () = ($str =~ /#/g ) ) {
 $cc += $tmp;
}
print “$cc\n”;
        计算字符串 $str 中出现的 # 个数,利用了正则匹配。
         该法也可以如下编写,更简洁。
#!/usr/bin/perl
#find.pl
my $s;
$s += ( () =  /A/g ) while <>;
print “A : $s\n”;


发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

(Spamcheck Enabled)