Mega Code Archive

 

Categories / Perl / File

 

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);