my $dir = 'c:'; opendir(DIR, "$dir\\"); my @files; while(my $file = readdir(DIR)){ push(@files, "$dir\\$file") unless(-d "$dir\\$file"); } closedir(DIR); print "$_\n" foreach(@files);
In reply to Re: Get file names
by tcf22
in thread Get file names
by nofernandes
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |