Perl中的正則表達式匹配計數

Question

我正在匹配A <=> B！C <=> D！E <=> F ...形式的字符串，並希望對字母進行檢查。 基本上我想根據我定義的哈希來判斷字母是否在類中。 我有想法做以下正則表達式然后循環匹配的字符串：

$a =~ /(.)<=>(.)/g;

但我無法弄清楚有多少$ 1，$ 2變量匹配。 我怎么知道有多少？ 另外，有更好的方法嗎？ 我使用的是Perl 5.8.8。

Answer 1

您需要'countof'運算符來計算匹配數：

my $count = () = $string =~ /(.)<=>(.)/g;

用數組替換空列表將保留匹配：

my @matches = $string =~ /(.)<=>(.)/g;

這提供了獲得$count另一種方法：

my $count = @matches;   # scalar @matches works too

Answer 2

使用while循環

use warnings;
use strict;

my %letters = map { $_ => 1 } qw(A C F);
my $s = 'A<=>B!C<=>D!E<=>F';
while ($s =~ /(.)<=>(.)/g) {
    print "$1\n" if exists $letters{$1};
    print "$2\n" if exists $letters{$2};    
}

__END__

A
C
F

Answer 3

創建一個變量並在每次循環時遞增它？