您必须捕获匹配的字符串并单独处理.
此代码演示
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
原文地址:https://www.jb51.cc/regex/356696.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。