File Perl

  1. Home
  2. Perl
  3. File
  4. To open a directory, use the opendir command
$status = opendir(dirhandle, $name);
#!/usr/bin/perl -w
$name = "c:\\";
opendir(DIR, $name) or die "Can't open $name due to $!";
$entry = readdir(DIR);
while ( defined($entry) ) {
    print "$entry\n";
    $entry = readdir(DIR);
}
closedir(DIR);