You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
#!/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);
|