perl - 如何按数组顺序打印数组元素值？

Question

如何按数组元素的顺序打印数组的值？

@ab= <DATA>;
print "@ab\n";
@a = qw(a b c d);
foreach $s(@ab){
   foreach $m (@a){
        $z =~m/$m/g;
        print "$z";
    }
}
__DATA__
d 43
a 5
b 24
d 4
a 12
b 54
c 11
a 1
d 1
a 32

在这个程序中给出了输出，但我希望输出是

a 5
a 12
a 1
a 32
b 24
b 54
c 11
d 43
d 4
d 1

首先打印第一个数组元素的匹配值，然后打印第二个，依此类推。我该怎么做？

Answer 1

你的外循环应该遍历 @a 而内循环应该遍历 @ab

my @ab= <DATA>;
my @a = qw(a b c d);

foreach my $m (@a) {
   foreach my $s (@ab) {
        print $s if $s =~ /^$m/;
    }
}
__DATA__
d 43
a 5
b 24
d 4
a 12
b 54
c 11
a 1
d 1
a 32

输出

a 5
a 12
a 1
a 32
b 24
b 54
c 11
d 43
d 4
d 1