perl - 如何遍历嵌套数组？

Question

我创建了一个数组如下

while (defined ($line = `<STDIN>`))

        {
        chomp ($line);
        push @stack,($line);
        }

每一行有两个数字。

15 6
2  8

如何遍历每行中的每个项目？

即我要打印

15
6
2
8

我理解是这样的

foreach (@{stack}) (@stack){

    print "?????
}  

这就是我卡住的地方。

Answer 1

参见 perldsc文档。那是 Perl Data Structures Cookbook，其中包含处理数组数组的示例。从你正在做的事情来看，它看起来并不像你需要一个数组数组。

对于每行取两个数字并每行输出一个数字的问题，只需将空格转换为换行符即可:

 while( <> ) {
     s/\s+/\n/; # turn all whitespace runs into newlines
     print;     # it's ready to print
     }

在 Perl 5.10 中，您可以使用仅匹配水平空格的新 \h 字符类:

 while( <> ) {
     s/\h+/\n/; # turn all horizontal whitespace runs into newlines
     print;     # it's ready to print
     }

作为 Perl 的单行代码，这只是:

 % perl -pe 's/\h+/\n/' file.txt