readdir in subdirs

[über]

Hello

opendir(DIR, ".");
    @FILENAME = readdir(DIR);
    closedir(DIR); 

Now here u see a script that gets file names in dir the script is in, but how i could also readdir in every subdir the script directory has?

[eWish]

Check out File::Find.

--Kevin

[über]

But can you do that without the File::Find?

[numberwhun]

But can you do that without the File::Find?

File::Find would be the easiest way. If you are unable to install the module, you can still download the code and see how the module does it and incorporate that code into yours. Either way, its easier.

Regards,

Jeff

[über]

Ok now i have File::Find and found this script somewhere

use strict;
use File::Find;
@ARGV = '.' unless @ARGV;
 
find sub {
    print "got one!\n" if m/\.mp3$/;
}, @ARGV;

How i could make this script work like the one i used before? Like how i could get the files found to go to @FILENAME

[numberwhun]

Ok now i have File::Find and found this script somewhere

use strict;
use File::Find;
@ARGV = '.' unless @ARGV;
 
find sub {
    print "got one!\n" if m/\.mp3$/;
}, @ARGV;

How i could make this script work like the one i used before? Like how i could get the files found to go to @FILENAME

Well, instead of doing the print, you could modify it to do a push() to the array. Look up the push function on perldoc and you will see how to do it.

Regards,

Jeff

[über]

kk thanks, i will use this now, but i would still like to know how u would do it without File::Find

[KevinADC]

kk thanks, i will use this now, but i would still like to know how u would do it without File::Find

Write a recursive function. Google would have found you a number of examples. Learn how to use search engines for your pleasure and benefit.

http://www.bin-co.com/perl/scripts/dir.php

[eWish]

After reading the article that Kevin linked to File::Find is looking even better. I personally like File::Find::Wanted. However, File::Find is standard and File::Find::Wanted is not.

--Kevin