perl运行出现invalid argument......line15,求帮忙看一下?

新手小白,在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行是哪一行?空格行算一行吗?
谢谢各位大神帮忙

1个回答

可以把你的编译器打开显示行号就能看到了

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问