Help for this page

Select Code to Download


  1. or download this
     
%args = ( "user" => $remuser, "password" => $rempswd );
$sftp = Net::SFTP::Foreign->new( $remnode,%args, stderr_discard => 1 )
+;
  2. or download this
     
$sftp = Net::SFTP::Foreign->new( $remnode
,key_path => '/export/home/secbatch/.ssh/id_rsa'
, stderr_discard => 1);
  3. or download this
    if ( $sftp->error )    {            print "Connect Failed!";
    print "\n$@"; ##if $DEBUG;    
    print "\nConnect error: " . $sftp->error . "\n";
    print "\nConnect status: " . $sftp->status . "\n";