perl获取相同匹配字符长度

发布时间：2020-12-15 23:51:52 所属栏目：大数据来源：网络整理

导读：用perl来获取匹配字符串出现的次数的一个比较好的方法：通过/g进行全局匹配，返回数组中包含了所有已匹配的元素，再用上下文标量获得数组长度。代码如下： 1 main(); 2 sub main 3 { 4 my $str = " #####H1#### " ; 5 my $divider = " # " ; 6 print " lengt

用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 }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!