如何使用Perl將文件從Unix目錄復制到Windows目錄？

Question

我是Perl的新手，並嘗試將CS​​V文件從UNIX目錄復制到Windows共享驅動器，而不使用FTP。

下面是我的代碼，其中的源是UNIX目錄中的CSV文件，而已創建"C:/New folder"來接收該文件。 我將新文件夾放在此處作為占位符，因為我沒有弄清楚應該使用哪個共享驅動器。

use File::Copy;

sub TestCopyFile
{
    my $source = "/home/user/somefolder/somefile.csv";
    my $target = "C:/New folder";

    copy($source, $target);
}

因此，當我嘗試從PuTTY運行此程序時，被告知它是成功的。 但是，我在目標文件夾中找不到該文件。

我的代碼有什么問題嗎？ 任何建議表示贊賞。

Answer 1

確實不是一個perl問題。 Windows共享驅動器表示SMB 。 您需要安裝samba並將共享驅動器安裝到本地文件系統樹中。

示例： mount.cifs //the-workstation/the-share ~/mnt/the-workstation/the-share -o rw,vers=3.0,sec=ntlmssp,credentials=$HOME/.smbcredentials,cache=strict,uid=1000,forceuid,gid=100,forcegid,addr=172.xxx.xxx.xxx,file_mode=0644,dir_mode=0755,nounix,serverino,rsize=1048576,wsize=1048576,actimeo=1

如果一開始很難弄清楚，可以使用smb4k瀏覽網絡。 找到正確的共享后，它將告訴您適當的安裝命令。