Perl Foreach通过多维数组？

发布时间：2020-12-15 21:48:09 所属栏目：大数据来源：网络整理

导读：我有一个脚本,它采用太旧的路径名/文件(通过用户输入决定)并删除它们.我想单独列出每个目录,并要求确认删除每个目录中的旧文件. 所以,我有一个数组(@oldDirs),它包含多个数组(每个目录),它们包含字符串(完整路径名). @oldDirs = (@AirDefense,@Arcsight,@Avo

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

所以,我有一个数组(@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$pathnamen";
        }

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

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

我的问题是第一个foreach声明.两者都是数组,并且不允许使用@direc,因为我需要在foreach的那一部分中有一个标量值……但它们都是数组！我怎么能这样做,如果可能的话？

解决方法

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

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

相反,数组将被展平并且@multi将包含

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

你必须使用参考：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!