Help traversing a filesystem 3

[gregmosu]

I am trying to write a script that will traverse a file system from a given starting point. I had no problem doing this in java, but converting it to perl wasnt as easy. So far, the script explores all the directies sitting in the relative root dir(whatever starting point i give it)... and prints the files in those directories, but doesnt explore any of their subdirectories. Here is what I have so far....

#!/usr/bin/perl -s

my $start_point=".";

&Traverse($start_point);

sub Traverse{
my ($workdir) = shift;
opendir(DIR, $workdir) or die "Unable to open $workdir:$!\n";
my @dirarray = readdir(DIR) or die "Unable to read $workdir:$!\n";
&PrintFileInfo($workdir);
foreach my $name (@dirarray){
next if $name eq ".";
next if $name eq "..";
if(-d $name){
&Traverse($name);
} else {
&PrintFileInfo($name);
}
}
}

sub PrintFileInfo{
my ($file) = shift;
if(-d $file){
print "DIRECTORY $file\n";
} else {
print "\tFILE $file\n";
}
}



Thanks,
Greg

 

[icrf]

Save yourself the time, use File::Find.

http://search.cpan.org/~nwclark/perl-5.8.2/lib/File/Find.pm

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light

 

[raider2001]

The problem is that you need the full pathname to the file. Here's the code with changes in red
my $start_point=".";

&Traverse($start_point);

sub Traverse{
my ($workdir) = shift;
opendir(DIR, $workdir) or die "Unable to open $workdir:$!\n";
my @dirarray = readdir(DIR) or die "Unable to read $workdir:$!\n";
&PrintFileInfo($workdir);
foreach my $name (@dirarray){
next if $name eq ".";
next if $name eq "..";
$fullname = $workdir . "\\" . $name;
if (-d $fullname){
&Traverse($fullname);
} else {
&PrintFileInfo($fullname);
}
}
}

sub PrintFileInfo{
my ($file) = shift;
if(-d $file){
print "DIRECTORY $file\n";
} else {
print "\tFILE $file\n";
}
}

 

[raklet]

Or, as icrf said, use File::Find



use File::Find;
find (\&wanted, "start point goes here"
sub wanted {
-f and push @array,$File::Find::name;
}
foreach (@array) {
print ("$_\n"
}


That is all there is too it.