How can I write to a remote server

[dimitad]

Hi all,

Is there a module or command in Perl that allows you to write/delete files that are on a different machine (both being UNIX) just by providing the url for that machine and the path to the file.
I was trying to get it to work with File::Remote but I get an error that the file does not exist. Here is the code:

#!/usr/bin/perl
use strict;
# check if required modules are present

use File::Remote qwreplace);
setrsh('/usr/bin/ssh');
setrcp('/usr/bin/scp');
open (REMOTE, "server_url:/home/classes/eese/projects/sendemail.php") or die $!;
print while(<REMOTE>);
close(REMOTE);

 

[mbrooks]

This should work

use File::Remote qw(:replace);
setrsh('/usr/bin/ssh');
setrcp('/usr/bin/scp');
open (REMOTE, "/home/classes/eese/projects/sendemail.php") or die $!;
print while(<REMOTE>);
close(REMOTE);

M. Brooks

http://mbrooks.info

 

[dimitad]

Hmm but the remote server "server_url" from above requires login and is missing in the code you provided.

 

[mbrooks]

Oops.. My bad.

open (REMOTE, "host:/home/classes/eese/projects/sendemail.php") or die $!;

M. Brooks

http://mbrooks.info