Re: Finding Files and Processing them iteratively

[rupesh]

You can also use File::Find or File::Recurse.

#!c:\perl\bin\perl.exe
use strict;
use File::Recurse; 
use File::Find;

my (@filearr, $path, $prod_file, $files, %files, %all);

sub recurse
{
    my $path=shift;
    my $matchpattern=shift;
    %files = Recurse(["$path"], 
    {
        match => "$matchpattern", nomatch => ''
    });             
    if (scalar keys %all)
    {
        @all{keys %files} = values %files;
    }
    else
    {
        %all=%files;
    }    
}

{
    recurse("c:\\data", "\.");
    
    foreach (sort keys %all) 
    { 
        my $dirs=$_;
        foreach (@{ $all{"$_"} }) 
        { 
            $files=$_;
            my $fullname="$dirs"."\\"."$files";
            push @filearr, "$fullname\n";
        }
    }    
      
    foreach my $machine (@filearr)
    {
        chomp;
        open FH, "<$machine";
        my $ctr=0;
        foreach (<FH>)
        {
            chomp;
            $ctr+=$_;
        }
        close FH;
        $all{$machine}=$ctr;
    }    
}

[satchm0h]

If you decide to go with File::Find and are Unix find savvy, check out the handy find2perl script. Write a find command line that does what you want and then replace 'find' with 'find2perl' and it will generate the code for you.

Although for your specific task, File::Find may be overkill. The various glob solutions others have posted should serve you well.