while i agree that it is probably a good idea to use someone else's wheel, it is often helpful to figure out what's wrong with the round thing you thought you were building. since no-one else spoke of your spokes, i stuck a stick in them myself, and i think i have it.

i think most of your problem is in this section:

a:   for(@infiles) {
b:      $_ =~ s/^(\.|\.\.)$//;
c:      if (-d $_) {
[download]

#!/usr/bin/perl -w

use strict;

my @dirs = (                   # omit trailing slash
   '/var/www',
   '/home/me',
   '/usr/games',
   );

for my $dir (@dirs) {
   opendir DIR, $dir           or warn "Error opening $dir:\n$!";
   my @infiles = (readdir DIR) or warn "Error reading $dir:\n$!";
   closedir DIR                or warn "Error closing $dir:\n$!";

   for(@infiles) {
      $_ =~ m/^\.{1,2}$/ and next;
      my $d = "$dir/$_";
      if (-d $d) {
         push @dirs, $d;
         next;
         }
      # do stuff
      }
   }

for(@dirs) {
   print "    $_\n";
   }
[download]

some notes:

first, though this treatment of the array works, i don't like it. manipulating the array you're looping on is vaguely dangerous, just because you get tempted to do much worse things than push onto the end of it. i'd replace that with a while ($dir = shift @dirs), and push $dir onto @keep if you need to keep them for later.

second, you'll note i changed your regex line. i made two changes, both possibly minor stylistic things. one was use of the {1,2} to indicate "one or two" because i find that easier to read than the multiple backslashes and alternation. two, rather than turning those into blank entries and keeping them, if it matched that, i next. why? a little lower, i generate an absolute path by appending the local dirname ($_) onto my current "base" path ($dir), with a slash. if i kept blank ones, this would add the base path back in twice -- infintitely filling the array. ew. bad.

i'd also recommend not using $_; you're naming it explicitly anyway, you might as well give it a real name. but that's totally my own bias, so ignore that.

anyway, the moral of the story is "use those other modules" -- but the other lesson is "perl can't guess what you're thinking more than about 90% of the time."

More importantly, how deep are you trying to go? Even if you use another collection, the names you get from readdir are relative to their parent. So a readdir on them isn't going to yield any more subdirs. If you really want to recurse, you're going to have to do something different.

Perhaps File::Find would do the trick for you:

use strict;
use File::Find;
my @dirs = ( '/home/ned', '/usr/games' );
sub doStuff { print shift() . "\n"; }
find( sub { doStuff($File::Find::name) unless -d _ }, @dirs );
[download]

#!/usr/bin/perl

use MP3::Info;

$dHandle = 'dh00';
my $startDir = shift || '.';
my $separator = shift || '\\';

parseDir($startDir);

sub parseDir
{
    my $currentDir = shift || return;
    my $dirHandle = $dHandle++;
    opendir($dirHandle, $currentDir) or die "Coudln't open directory $
+startDir.\n";

    while (my $filename = readdir ($dirHandle))
    {
        next if ($filename =~ /^\./); # go to next filename if we have
+ a special file (i.e. . or ..)
                # if we find a directory, parse it by calling the pars
+eDir again ( Recursion ).
        if( -d "$currentDir$separator$filename" )
        {
            parseDir("$currentDir$separator$filename");
        }
        elsif($filename =~ /mp3/i)
        {
            my $mp3 = new MP3::Info "$currentDir$separator$filename";
            unless ($mp3 == undef)
            {
                print "$currentDir$separator$filename\n";
            }
        }
    }
    closedir($dirHandle);
}
        
exit(0);
[download]

Edit by tye

Zenon Zabinski | zdog | zdog7@hotmail.com

sub dodir {
opendir(DIR,$_[0]);
my $dir = $_[0];
if ($dir !~ /\/$/) { $dir .= "/"; }
my @List=readdir(DIR); 
closedir(DIR);
splice(@List,0,2);
print "Reading $_[0]\n";
foreach $file (@List) {
 my $file = $dir.$file;
 if (-d $file) { dodir($file); }
    else { push(@Files,$file); }
 }
}

dodir($ARGV[0]);
foreach(@Files) { print $_,"\n"; }
[download]

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

         # Rest of loop here
    }
[download]

You do have a couple of other small bugs, which other posters have pointed out.