Help for this page

Select Code to Download


  1. or download this
    [2005]tom@margo ~ $ perl
use Net::SFTP;
...
my $sftp = Net::SFTP->new('test2.dievision', user => 'MYNAME', passwor
+d => 'MYPASSWORD', debug => 1);
$sftp->ls('/(some/dir', sub {print STDERR "$_[0]->{filename}\n"});
1;
  2. or download this
    $sftp->ls('/some/dir', sub {my $attrs = $sftp->do_stat($_[0]->{filenam
+e});
        print STDERR $_[0]->{filename}, " ", $attrs->gid, " ", $attrs-
+>size, "\n"});