计算由正则表达式通配符匹配的字符串中特定字符的匹配数

发布时间：2020-12-13 22:56:05 所属栏目：百科来源：网络整理

导读：我可以保留在正则表达式中匹配的每个不同字符的数量吗？假设正则表达式看起来像/u0026gt;(.*)[^a] / 我可以保留一个事件的计数,例如字符串p在组中捕获的字符串(.*)？您必须捕获匹配的字符串并单独处理. 此代码演示 use strict;use warnings;my $str = ' p

我可以保留在正则表达式中匹配的每个不同字符的数量吗？

假设正则表达式看起来像/u0026gt;(.*)[^a] /

我可以保留一个事件的计数,例如字符串p在组中捕获的字符串(.*)？

您必须捕获匹配的字符串并单独处理.

此代码演示

use strict;
use warnings;

my $str = '> plantagenetgoosewagonattributes';

if ($str =~ />(.*)[^a]+/) {
  my $substr = $1;
  my %counts;
  $counts{$_}++ for $substr =~ /./g;
  print "'$_' - $counts{$_}n" for sort keys %counts;
}

产量

' ' - 1
'a' - 4
'b' - 1
'e' - 4
'g' - 3
'i' - 1
'l' - 1
'n' - 3
'o' - 3
'p' - 1
'r' - 1
's' - 1
't' - 5
'u' - 1
'w' - 1

（编辑：李大同）

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