从LAN下载文件的Perl脚本

Question

路径类似于此\\pc1\folder1\folder2\file.bin 以上是网络上的共享文件夹 我必须将其保存到类似于c:\Users\me\Desktop\file_copy.bin

的路径中

我是Perl的新手，因此明确解释它的发生方式将会很明显。

Answer 1

您可以尝试Win32::FileOp模块，下面是如何打开文件，您可以使用CopyFile选项进行下载。

use Win32::FileOp qw/ Map /;

Map 'X:' => ' \\\\machine\\share', 
  { user => 'foo', passwd => 'bar' };

open FILE, 'x:/path/file.ext' or die "...";

另请查看File::Fetch