[perl] 정규표현식 EAA..EZZ 범용레지스터 매칭

정규표현식에서의 매칭결과를 배열에다 추출한다.

괄호로 감싸면 그룹이 되며, 캡쳐가된다.

캡쳐를 원하지 않으면 (?: )를 사용한다. 캡쳐를 하지 않으므로 처리속도도 증가된다.

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
my @sarr=("AAA".."ZZZ");
my $str="";
foreach my $e(@sarr){
        $str.=$e;
}
my @arr = $str =~ /(E(?:[A-D]X|[DS]I|[BS]P))/g;
@arr=sort(@arr);
foreach my $e(@arr){
        say "$e";
}