File IO on a remote Windows system

Given a Perl script that can be running on unix or Windows, how can I 开发者_Go百科best read/write to a file on a windows host? Is there anything similar to File::Remote?

---

I would try to mount the remote folder and then use the standard perl functions:

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