Question

perl 如何将一个文件中匹配到的字符返回，并存放在一个数组中？

perl 如何将一个文件中匹配到的字符返回，并存放在一个数组中？
例如：
my $str='dsfsfsf"DEV1234"dfsfsdfs"DEV232323" sfdasjklas“DEV32323”';
if($str=~m/(DEV\d+)/){
print "$1\n";
}
通过上面可以匹配到DEV1234，但是$str中有多个DEV232* ，我要把全部的都取出来，然后放到一个数组中 ，请问应该怎样来写呢？在线等 ！！求高手指点

Answer 1

my $str='dsfsfsf"DEV1234"dfsfsdfs"DEV232323" sfdasjklas“DEV32323”';
my @collector;
my $cp = $str;

$cp =~ s/(DEV\d+)/push @collector, $1/eg;
print "@collector";

Answer 2

my $str='dsfsfsf"DEV1234"dfsfsdfs"DEV232323"sfdasjklas"DEV32323"';
my @strArray=split(/"/,$str);
my @resultArr=();
foreach my $strPrt(@strArray){
if($strPrt=~m/(DEV\d+)/){
push @resultArr,$strPrt;
}
}
print "@resultArr\n";

Answer 3

my $str='dsfsfsf"DEV1234"dfsfsdfs"DEV232323" sfdasjklas“DEV32323”';
@m = $str =~ /DEV\d+/g;
print "@m\n";