readdir in subdirs

über

Hello

Expand|Select|Wrap|Line Numbers

 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

Expand|Select|Wrap|Line Numbers

 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

Expand|Select|Wrap|Line Numbers

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

readdir in subdirs

Post your reply

Similar topics