Файл ввода-вывода в удаленной системе Windows

Question

Учитывая Perl-скрипт, который может быть запущен в Unix или Windows, как мне лучше всего читать / записывать в файл на хосте 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);