新手小白,在perl运行过程中发现invalid argument
我的代码如下
use strict;
use warnings;
my $newDir="files";
unless(-d $newDir)
{
mkdir $newDir or die $!;
}
my @allFiles=glob("*");
foreach my $subDir(@allFiles)
{
if(-d $subDir)
{
opendir(SUB,".\$subDir") or die $!;
while(my $file=readdir(SUB))
{
if($file=~/.gz$/)
{copy .\\$subDir\\$file .\\$newDir
;
}
}
close(SUB);
}
}
出现的问题是 invalid argument at xxxxx.pl line 15
我想问一下15行是哪一行?空格行算一行吗?
谢谢各位大神帮忙