我有一个脚本,它采用太旧的路径名/文件(通过用户输入决定)并删除它们.我想单独列出每个目录,并要求确认删除每个目录中的旧文件.
所以,我有一个数组(@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的那一部分中有一个标量值……但它们都是数组!我怎么能这样做,如果可能的话?
解决方法
你应该阅读
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) { # ... } }
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。