Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Catching die in Net::SFTP / Net::SSH::Perl:

by msubbareddy (Initiate)
on Oct 17, 2011 at 22:54 UTC ( #932035=note: print w/replies, xml ) Need Help??


in reply to Catching die in Net::SFTP / Net::SSH::Perl:

If you still looking for hints on this module usage:
#!/usr/bin/perl -w #usage: ./demo1.pl myftphost.com -u xx use strict; use Net::SFTP; use Getopt::Long; my %opts; my $user; Getopt::Long::Configure('no_ignore_case'); GetOptions(\%opts, "v", 'u=s'=>\$user); my($host) = @ARGV; die "usage: demo1 [options] hostname" unless $host; # set up the arguments based on the command line options my %args = (ssh_args => []); $args{debug} = 1 if $opts{v}; push @{ $args{ssh_args} }, user => $user ; # make our connection print "Connecting to $host...\n"; my $sftp; #Stype0 # #$sftp = Net::SFTP->new($host); #$sftp->login($user, $pass); #OR #without PWD and using ssh key #$sftp->login($user); #Style1 # #$sftp = Net::SFTP->new($host, %args); #Style2 $sftp = Net::SFTP->new($host, ssh_args => [ user => $user, options => [ 'ConnectTimeout 30', 'ServerAliveInterval 20', 'ServerAliveCountMax 3' ] ] ); if (!$sftp) { print "Unable to open SFTP connection\n"; return; } print "SFTP connection opened.\n"; $sftp->ls("." , sub { print $_[0]->{longname}, "\n" }); $sftp->get('test.dat'); $sftp->status; print "Finished\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://932035]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (1)
As of 2022-01-28 06:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (73 votes). Check out past polls.

    Notices?