«

Can anyone tell me why the following only goes one level deep in the
directory tree?

I'm stumped


#!/usr/bin/perl

use strict;
use Cwd;

my $cdir;
my @files;

$cdir = getcwd();

doDir($cdir);

foreach(@files)
{
printf("$_\n");
}

exit;

sub doDir
{
my $dir = $_[0];
printf("####$dir####\n");
my $fname;
opendir(DIRHANDLE, $dir);
my @list = readdir(DIRHANDLE);
closedir(DIRHANDLE);
foreach(@list)
{
chomp;
if(-d $_)
{
unless(/\.\.?\z/)
{
$fname=$dir.'/'.$_;
doDir($fname);
}
}
else
{
if(/\.mp3\z/)
{
$fname=$dir.'/'.$_;
push(@files, $fname);
}
}
}# end foreach(@list)
}# end doDir()

TIA

--
Mark Healey
marknews(at)healeyonline(dot)com

Jim Gibson <> wrote:
> In article <>, Mark Healey
><> wrote:
>
>> Can anyone tell me why the following only goes one level deep in the


>> my @list = readdir(DIRHANDLE);


>> if(-d $_)


> You
> need to check "$dir/$_" instead.


Just like it says in the documentation for the function that
the OP is using!

Asking hundreds of people to read the docs to you is not very nice...


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas