perl 统计字符串中特定字符出现的次数
2012-09-11 22:42:05| 分类：
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";
评论这张
转发至微博
转发至微博
关闭
玩LOFTER，免费冲印20张照片，人人有奖！
我要抢>
<#--最新日志，群博日志-->
<#--推荐日志-->
<#--引用记录-->
<#--博主推荐-->
<#--随机阅读-->
<#--首页推荐-->
<#--历史上的今天-->
<#--被推荐日志-->
<#--上一篇，下一篇-->
<#-- 热度 -->
<#-- 网易新闻广告 -->
<#--右边模块结构-->
<#--评论模块结构-->
<#--引用模块结构-->
<#--博主发起的投票-->
评论