Your question is ambigious. Do you mean you want a list of all files and dirs minus . and ..?
Or, all files, excluding all dirs (including . and ..)?
Choose from the following code:
#! perl -w local ($\=" | "); $dir = pop; opendir (DIR, $dir ) or die "Open '$dir' failed: $!"; my @filesOnly= map { $dir.$_ } grep{ -f "$dir/$_" } readdir(DIR); closedir (DIR) or die "Close '$dir' failed: $!"; print for (@filesOnly); print "-----------------------------------------------\n"; opendir (DIR, $dir ) or die "Open '$dir' failed: $!"; my @filesAndDirs= map { $dir.$_ } grep{ $_ ne "." and $_ ne ".." } rea +ddir(DIR); closedir (DIR) or die "Close '$dir' failed: $!"; print for (@filesAndDirs)
In reply to Re: Need help with creating a filename only array
by BrowserUk
in thread Need help with creating a filename only array
by S_Shrum
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |