我在Perl中编写了一个脚本来将图像移动到可在PC上正常工作的网络共享驱动器。当我尝试在Mac上运行它时,我收到的都是错误消息。我无法弄清楚是什么导致了这个问题。脚本无法在Mac上运行会有什么原因吗?我使用File :: Copy和File :: Find来移动这些文件。Perl脚本无法在Mac上工作
这是错误消息我得到:
复制失败:在“脚本的位置”行没有这样的文件或目录14
任何帮助将是巨大的。谢谢。 :)
use File::Copy;
use File::Find;
my @source = qw (source/location);
my $target = q{//share/drive/location};
while (1)
{ sleep (10);
find(
sub {
if (-f) {
print "$File::Find::name -> $target";
copy($File::Find::name, $target)
or die(q{copy failed:} . $!);
}
},
@source
);
}
我认为“脚本的位置”是你在复制邮件时改变的,它实际上是说'/ path/to/your/script'? – Schwern
我在想同样的事情。是否可以在这里发布脚本或脚本的相关部分供其他人查看? – JakeGould
我已经添加了脚本。如果我尝试使用代码在我放置在Mac桌面上的两个文件夹之间进行复制,则代码完美无缺。只是当我尝试将代码复制到共享驱动器位置时,它不起作用。当我在PC上运行此脚本时,它将复制到共享驱动器,而不是在Mac上。 – Nightzrain