Jay Savage wrote:
> opendir(DIR, $somedir) or die "$!\n";
> my @files = grep { $_ !~ /^\.{1,2}$/ && -f "$somedir/$_" } readdir(DIR);
> closedir(DIR);
my @files = grep { -f } glob( "$somedir/*" );
If you're not interested in subdirectories, you only need glob(). And
yes, it doesn't list hidden files; that's because it shouldn't. Hidden
files are HIDDEN!
--
__END__
Just my 0.00000002 million dollars worth,
--- Shawn
"For the things we have to learn before we can do them, we learn by
doing them."
Aristotle
* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is at http://perldoc.perl.org/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
