远程 Windows 系统上的文件 IO

Question

给定一个可以在 unix 或 Windows 上运行的 Perl 脚本，我如何才能最好地读/写 Windows 主机上的文件？有没有类似于 File::Remote 的东西？

Answer 1

我会尝试挂载远程文件夹，然后使用标准 perl 函数：

use constant W_REMOTE_FOLDER = '\\server\share';
use constant W_LOCAL_FOLDER = 'x:\share\';
use constant L_REMOTE_FOLDER = 'smb://server/share';
use constant L_LOCAL_FOLDER = '/mnt/share/';

my $localfolder = '';

if ($am_i_windows)
{
    system('net use ...');
    $localfolder = W_LOCAL_FOLDER;
}
if ($am_i_linux)
{
    system('mount ...');
    $localfolder = L_LOCAL_FOLDER;
}
die "What am I? if ($localfolder eq '');


open(HANDLE, "$localfolder/$filename");
# read/write (...)
close(HANDLE);