Help for this page

Select Code to Download


  1. or download this
    my $datadir="/user1/localfiles/data/"
opendir LOCALDIR, "$datadir" or die "unable to open $datadir\a\n";
...
{
print "$file\n";
}
  2. or download this
    my @localfiles=grep/.txt$/i readdir LOCALDIR;
  3. or download this
    my @localfiles=grep/^file-15a_62_200405/i readdir LOCALDIR;