Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
#print "$ok files have been downloaded, $failed files failed!\n\n";

$sftp->disconnect();
  2. or download this
    my $ls = $sftp->ls( '.', wanted => qr/$datestring/)  or die "unable to
+ retrieve directory: ".$sftp->error;

my $file = "$_->{filename}\n" for (@$ls);

print $file