Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • It may well work faster, unless glob() is still implemented by call /bin/csh on your box.

    Of course, I don't know of a platform that still does things that way, but I'm sure that somebody does...

    -Dom

  • It'll quit too soon if someone created foo/bar/baz/and/another/thing/plugh.pl, yet there is any level between 1 and 5 that contains no .pl files in any directory at that level. It'll give a wrong answer if someone created a directory (or pipe or ...) that matches *.pl - you'll have someone to blame for your problem, though.

    This should work (modulo any bugs - I just typed it in off the top of my head...):

    @dirs = ( '.' );

    while (@dirs) {
        my $dir = shift @dirs;
        DIR = opendir $dir;