Help for this page

Select Code to Download


  1. or download this
    print "\nH1. Attempt to list files ";
foreach $file ( @{$ls1}, @{$ls2}, @{$ls3}, @{$ls4} )    { 
    print "\nH1. $file ";
}
  2. or download this
    my $ls = $sftp->ls('/home/foo')
        or die "unable to retrieve directory: ".$sftp->error;

print "$_->{filename}\n" for (@$ls);
  3. or download this
    $pat4 = $envment . "REQ_*.req.copied";
...
$ls4 = $sftp->ls('/', names_only => 1, wanted=>qr/$pat4/);