Help for this page

Select Code to Download


  1. or download this
    $dir = "\\\\server\\share";
@files = <$dir/*>;
print "$_\n" for @files;
  2. or download this
    $dir = "\\\\server\\share";
opendir DH, $dir or die "Cannot open $dir: $!";
@files = ( readdir DH );
print "$_\n" for @files;
  3. or download this
    $dir = "\\\\server\\share";
@files = `dir $dir /b /a-d`;
print @files;