How do I Open Multiple Files

[campbere]

Ok I am a rookie to be Perl so take it easy on me.

I want to open multiple files that are located in a directory, extract information from them and do some checking with the numbers in the files. I am stuck and have not found good examples to help me out. This is what I have to this point.

while ($FILE =~ (<*.rpt>)) {
#Get the stas and set to variables
$tot_items =~ m/items=&quot;(\d+)/;
print $string;
$insert =~ m/inserts=&quot;(\d+)/;
print $insert;
$update =~ m/updates=&quot;(\d+)/;
print $update;
$delete =~ m/deletes=&quot;(\d+)/;
print $delete;
$failure =~ m/failures=&quot;(\d+)/;
print $failure;
}

I appreciate the help. Also if you know of any good perl resources particulary sites that offer plenty of examples and tutorials pless pass that on.

Thanks,

PerlRookie

 

[PerlIsGood]

You could use:

$dir = "./path"
opendir DIR, $dir or die;
    while ( $file = readdir <DIR> ) {
       #fun stuff here
    }
closedir DIR;

Hope that helps.