> Hi all,
> I am trying to read only files in a directory; I need
> to jump over the dot files and any subdirectories.
> Seems like a simple thing, however with
>
> opendir(DIR, $dir) || die "can't opendir $dir: $!";
> foreach my $file (readdir DIR)
> {
> next if (/^\./); # skip over dot files
There's probably a faster way but you can change this to:
next if (($file =~ /^\./) || (! -f $file));
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
