PCで正常に動作するネットワーク共有ドライブに画像を移動するスクリプトをPerlで作成しました。Macで実行しようとすると、エラーメッセージだけが表示されます。何が問題を引き起こしているのか理解できません。スクリプトがMacで実行されない理由はありますか?これらのファイルを移動するには、File::CopyとFile::Findを使用しています。
これは私が受け取っているエラーメッセージです:
コピーに失敗しました:「スクリプトの場所」の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
);
}