Listing files in a directory 1

[naq2]

How can I list the files and perform an action on eachone.

An algorism of what I want to do could be:

foreach FILE in DIRECTORY {
    PERFORM AN ACTION ON THE FILE
}

Thanks in advance.

 

[toolkit]

Lots of different ways:

opendir(DIR, ".");
foreach (readdir(DIR)) {
    next unless -f;
    print "do something with $_\n";
}
closedir(DIR);

Or:

opendir(DIR, ".");
@files = grep {-f} readdir(DIR);
closedir(DIR);
foreach (@files) {
    print "do something with $_\n";
}

Or if you want to recurse down into subdirectories:

use File::Find;
sub wanted {
    if (-f) {
        print "do something with $File::Find::name\n";
    }
}
find(\&wanted, ".");

Cheers, Neil

 

[naq2]

Whao! this is great! Thanks.