On Sun, Nov 02, 2003 at 05:32:35PM -0600, James Edward Gray II wrote:
> On Sunday, November 2, 2003, at 06:19 AM, Rob Dixon wrote:
> > sub printdir {
> >
> > my $dir = shift;
> >
> > opendir DIR, $dir or die $!;
> > my @dirs = grep /[^.]/, readdir DIR;
>
> I'm not sure this grep() is what you meant it to be. It selects any
> file containing a non-dot character, as written.
Right. The files to skip are "." (this directory) and ".." (the
parent directory). Rob's solution also skips "...", though, so it's
not perfect.
> I probably would have preferred grep /^[^.]/, ..., which get all
> files starting with a non-dot character. I believe that's a little
> more typical UNIX behavior.
That's fine if you *want* to skip the dotfiles. But you *always*
skip "." and "..". More robust code will also check for cycles, but
since File::Find does all this already, it's usually better just to
use the module.
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
