Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
opendir (DIR, "C:/Perl/bin/Anti") or die "Couldnt open directory: $!";
@files = readdir DIR;
closedir (DIR);
  2. or download this
    foreach $file (@files)
{
  print "$file\n"; #just to make sure this looks right
}
  3. or download this
    @files = grep {"$path/$_" -D }readdir DIR;