programming-examples/perl/File/When you're done with a directory, you need to close it with the closedir command.pl

15 lines
228 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/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);