遠程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);