On 26 Jun 2003 10:14:22 -0000, [EMAIL PROTECTED] (Vemulakonda
Uday Bhaskar) wrote:
>sir
>
>please help me with the code which does the following :
>
>transfer of files from one system through another system which are
>both working on linux through ssh
>
>as iam in need of it urgently, exepecting a working codee
ssh won't transfer files, you need scp or sftp
#!/usr/bin/perl -w
use strict;
use Net::SFTP;
my $sftp = undef;
eval{
$sftp = Net::SFTP->new("localhost",
user=>"zz",
password=>"ztest",
);
};
if ($@) { print "Sftp connection failed:\n [EMAIL PROTECTED]"; }
if (! $sftp) {
print "I can't connect!\n";
}else{
print "SUCCESS!\n";
}
$sftp->get("foo", "bar");
$sftp->put("bar", "baz");
__END__
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
