perl获取相同匹配字符长度
2012-11-17 11:15
369 查看
用perl来获取匹配字符串出现的次数的一个比较好的方法：通过/g进行全局匹配，返回数组中包含了所有已匹配的元素，再用上下文标量获得数组长度。代码如下：
main();
sub main
{
my $str = "#####H1####" ;
my $divider = "#";
print "length of $divider is :".testI($str , $divider);
}
#计算字符串里面字符出现次数的一个方法
sub testI
{
my $str = shift ;
my $divider = shift ;
if( $str =~ /^($divider+)/ )
{
my $tmp = $1 ;
my $length = () = $tmp =~ /$divider/g ;
return $length ;
}
}
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- perl获取相同匹配字符长度
- SQL函数:匹配两个字符串中有相同长度的字符
- perl中操作mysql，字符匹配与替换，字符串截取，计算字符长度
- SQL函数:匹配两个字符串中有相同长度的字符
- 获取字符串长度与字符串个数 utf8 gb2312
- C#经典笔试题-获取字符串中相同的字符以及其个数
- iOS中英文混排，获取字符串长度(中文字符数)
- 编写一个程序，输入一串不超过60个字符组成的且不包含换行符的字符串，将字符串中的A到Z的字母按英文字典字母顺序重新排列，排列后的单词的长度要与原始句子中的长度相同，并且要求只对A到Z的字母重新排列，其
- 获取文件中字符个数或者文件长度
- JQuery获取文本框中字符长度的代码
- leetcode_424. Longest Repeating Character Replacement 求替换k个字符后连续相同字符子串的长度，滑动窗口的应用
- perl模式匹配中用含特殊字符的变量?(using a variable as a pattern which contains special characters?)
- 获取字符串中相同字符个数的方法
- 如何获取字符串中相同字符出现的次数
- 输入一行字符串，找出其中出现的相同且长度最长的字符串，输出它及其首字符的位置
- tyvj 1170 0/1字符串问题 字符串中仅包含0和1两个字符；②字符串的长度为n；③字符串中不含有三个连续的相同子串 搜索
- Java精确截取字符串/获取字符串前指定长度字符函数
- 字符串相同字符长度却不同？
- 获取字符串的字节数，而不是字符长度
- 获取字符的字节长度， 获取中英文的字符字节长度