Tree scanning doesnt work

[mugen8]

Hello,

Ive written a perl script which should tree scan all my directories and print each passing file.. the problem is that after the first directory it enters some dots after the slash..
can you please tell me where is my mistake.. thanks for your help

(P.S i know that there is such a module however i prefer writing it by myself)

#! c:\perl\perl.exe
use strict;
 
sub dir_tree {
    my $dirr = shift;
    print "The current directory: $dirr \n";
    opendir (IN,$dirr) || die "Couldnt Open $dirr : $!\n";
    while (my $current_file = readdir IN) {    
 
        if (-d "$dirr\\$current_file" ) {
            print "Entering $dirr$current_file\\\n"; <STDIN>;
            &dir_tree("$dirr$current_file\\");
        }
 
        print "$dirr$current_file\n";
    }
}
 
print "Enter the destination directory with \ in the end \n";
 
my $dir = <STDIN>;
chomp $dir;
 
&dir_tree($dir);
 
 

[KevinADC]

the first two files in any directory is '.' and '..' you need to filter them out. Not sure why you have <STDIN> on this line:

print "Entering $dirr$current_file\\\n"; <STDIN>; 

[mugen8]

thanks it has worked

the stdin was for debugging purposes

[KevinADC]

I know it's fun to do in perl and has it's benefits, but this is is also easy using the OS:

my @files = qx/dir c:\/startdir \/S \/B/;

the array will now have a list all files in all sub folders in c:\startdir

[ghostdog74]

I know it's fun to do in perl and has it's benefits, but this is is also easy using the OS:

my @files = qx/dir c:\/startdir \/S \/B/;

the array will now have a list all files in all sub folders in c:\startdir

it's not cross platform though.

[KevinADC]

it's not cross platform though.

to quote myself:

know it's fun to do in perl and has it's benefits... ;)