Help for this page

Select Code to Download


  1. or download this
    my $f = $sftp->ls('/xxxx/xxxxx/outbound'); # $f instead of @files

#removed a loop here
    foreach my $file_ref ( @{$files} ) 
    {
  2. or download this
    my @files= grep (!/^\.\.?$/, @files); #or without regex
my @files= grep ($_ ne "." and $_ ne "..", @files);