在Perl中如何遍历多维数组？

Question

我有一个脚本，可以根据用户输入确定时间过久的文件路径 / 文件，并将其删除。我希望按照目录分别列出每个目录中要删除的旧文件，并请求确认。

因此，我有一个数组（@oldDirs），其中包含多个数组（每个目录），每个数组又包含字符串（完整的路径名）。

@oldDirs = (@AirDefense,@Arcsight,@Avocent,@BlueCoat,@Checkpoint,@Cisco,@Crossbeam,@FireE ye,@lostAndFound,@rancid,@Riverbed,@Symantec,@Wiki,@WLAN)

if($oldPathsSize != 0)
{
    my $dirNamesCounter = 0;
    my @dirNames =     ('/AirDefense','/Arcsight','/Avocent','/BlueCoat','/Checkpoint','/Cisco','Crossbeam','FireE ye','/lost+found','/rancid-2.3.8','/Riverbed','/Symantec','/Wiki','/WLAN');
    foreach my @direc (@oldDirs)
    {
        my $size = @direc;
        print "Confirm Deletion of $size Old files in $dirNames[$dirNamesC]: \n";
        $dirNamesCounter++;

        foreach my $pathname (@direc)
        {
            print "\t$pathname\n";
        }

        print "\nDelete All?(y/n): ";
        my $delete = <STDIN>;
        chomp($delete);

        if($delete eq "y")
        {
           #delete file
        }
    }
}

我的问题出在第一个foreach语句上。两个变量都是数组，但是@direc不被允许，因为在foreach的这一部分需要一个标量值...但它们都是数组！如果有可能的话，我该怎么做呢？

- geeoph

Answer 1

你应该阅读perllol - Manipulating Arrays of Arrays in Perl。你不能像这样创建一个多维数组：

my @array1 = (1, 2, 3);
my @array2 = qw/a b c/;
my @multi  = (@array1, @array2);

相反，数组将被展平，@multi将包含

1, 2, 3, 'a', 'b', 'c'

您必须使用参考资料：

my @multi = (\@array1, \@array2);
for my $ref (@multi) {
    for my $inner (@$ref) {
        # ...
    }
}

- choroba

---

哦哦哦，引用。太有趣了！好的，感谢您的回复和链接！ - geeoph

请注意反斜杠“\”具有分配性质，因此以下代码是有效的：my @multi = \(@array1, @array2);，它将两个数组合并为一个新的数组。 - ysth

如果您想使用内部循环修改2D数组的内容，该怎么做呢？$inner提供了数组的实际内容，但我希望它能够提供对内容的引用，以便在您编写的# ...处进行修改。 - SSilk

@SSilk：for 别名化了元素，因此修改 $inner 实际上是修改了内部数组的内容。 - choroba