use Perl

• Caveat (Score:2)

  by Dom2 (2981)

  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
• minor nits (Score:2)

  by jmm (276)

  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;
  
  • Re:minor nits (Score:1)

    by avik (3911)

    but his code works on other (non *nix) platforms...