Perl Foreach 通过多维数组？

Posted 2023-02-23

【中文标题】Perl Foreach 通过多维数组？

【英文标题】：Perl Foreach through Multidimensional Array?

【发布时间】：2013-06-01 16:32:54

【问题描述】：

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

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

【参考方案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) 
        # ...
    

【讨论】：

哦，参考。乐趣！好的，谢谢您的回复和链接！

请注意 \ 是分配性的，所以这有效：my @multi = \(@array1, @array2);

如果你想使用内循环来修改二维数组的内容，我们该怎么做呢？ $inner 给出了数组的实际内容，但我希望它提供对内容的引用，以便我可以在您编写 # ...

的地方修改它们

@SSilk: for 给元素起别名，所以修改$inner 确实修改了内部数组的内容。