net::sftp connection close
am 04.05.2006 12:27:08 von GinoHi,
I have a strange connection problem with sftp.
It seems that connection is establish but when I try to download any
file it return me an error.
Here the code:
eval {
$sftp = Net::SFTP->new($connessione{HOST}
,user=>$connessione{USER}
,password=>$connessione{PASSWORD} );
};
print "Cannot connect to sftp $connessione{HOST}" if ($@);
my $rm_file1 =
'/home/oriolo_bi/ORIOLO_BI/PWA/2006/03/PWA.2006.03.BI_FA2.00 01.ok.gz';
my $rm_file2 =
'/home/oriolo_bi/ORIOLO_BI/PWA/2006/03/PWA.2006.03.BI_FA1.00 01.ok.gz';
my $rm_file3 =
'/home/oriolo_bi/ORIOLO_BI/PWA/2006/03/PWA.2006.03.BI_GR.000 1.ok.gz';
my $rm_file4 =
'/home/oriolo_bi/ORIOLO_BI/PWA/2006/03/PWA.2006.03.BI_SW.000 1.ok.gz';
my $local_file1 = '/store2/kpi/temp/Nicola/BI_FA2.0001.ok.gz';
my $local_file2 = '/store2/kpi/temp/Nicola/BI_FA1.0001.ok.gz';
my $local_file3 = '/store2/kpi/temp/Nicola/BI_GR.0001.ok.gz';
my $local_file4 = '/store2/kpi/temp/Nicola/BI_SW.0001.ok.gz';
defined( $sftp->get($rm_file1, $local_file1)); #115
defined( $sftp->get($rm_file2, $local_file2));
defined( $sftp->get($rm_file3, $local_file3));
defined( $sftp->get($rm_file4, $local_file4));
.......
......
I get the following error message:
Connection closed at ./scar.pl line 115
Thanks at all