perl获取相同匹配字符长度

最新推荐文章于 2018-09-14 19:28:00 发布

weixin_33804582

最新推荐文章于 2018-09-14 19:28:00 发布

阅读量112

点赞数

CC 4.0 BY-SA版权

文章标签： python

原文链接：https://my.oschina.net/ifeixiang/blog/339533

本文介绍了一种使用Perl语言计算特定字符在字符串中出现次数的方法。通过正则表达式全局匹配和标量上下文获取匹配项数量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

2019独角兽企业重金招聘Python工程师标准>>>

用perl来获取匹配字符串出现的次数的一个比较好的方法：通过/g进行全局匹配，返回数组中包含了所有已匹配的元素，再用上下文标量获得数组长度。代码如下：

 1 main();
 2 sub main
 3 {
 4      my $str = "#####H1####" ; 
 5      my $divider = "#"; 
 6      print "length of $divider is :".testI($str , $divider); 
 7 }
 8  #计算字符串里面字符出现次数的一个方法 
 9 sub testI 
10 { 
11          my $str = shift ; 
12          my $divider = shift ; 
13         if( $str =~ /^($divider+)/ ) 
14          { 
15                my $tmp = $1 ; 
16                my $length = () = $tmp =~ /$divider/g ; 
17                return $length ; 
18           }
19 }