Perl在多维数组中的应用

Question

我有一个脚本，它接受太旧的路径名/文件(通过用户输入决定)并删除它们。我想单独列出每个目录，并要求确认删除每个目录中的旧文件。

因此，我有一个数组(@oldDir)，它包含多个数组(每个目录)，这些数组包含字符串(完整路径名)。

@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...but的那一部分有一个标量值，它们都是数组！如果可能的话，我该怎么做呢？

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) {
        # ...
    }
}