Re: special directory entries

[jwest]

You're better off to just strip . and .. out as they come in. Something like:

@dirs = grep(!/^\.\.?$/, readdir(DIR));

would do it nicely.

Hope this helps!

--jwest

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
 - HBT; The Book of Advice, 1:7

[grinder]

Why do people keep trotting out this readdir-and-regexp idiom to deal with current and parent directories?
@dirs = grep($_ ne '.' and $_ ne '..', readdir(DIR));

Sure it's a little more verbose, but it doesn't suffer from sneaky boundary failures (that blakem points out elsewhere in this thread). While it's more verbose, it's also more efficient, as it doesn't need regexp machinery.

Of course, that should be File::Spec::curdir and File::Spec::updir, to be on the safe side.

To find out FMTYEWTK about readdir, '.' and '..', I recommend reading this thread, especially merlyn's reply.

--

g r i n d e r
just another bofh

[cybermack72]

Anything for Win32...?

[jwest]

As far as I know, this should be portable to Win32. Unless grep isn't implemented there, but I believe it to be. If you let me know where this fails on Win32, I might be able to help.

Also, wog's solution below looks like it will handle any portability issues transparently.

--jwest




-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
 - HBT; The Book of Advice, 1:7