open a file from a directory

[cnw40007]

Hi,
I was wondering could anybody show me how i would open a number of files from a directory.Each file begins with qfh and then a series of different numbers and letters. My code below prints out the specified files but i need to open them to search for a certain word. Can you help me please.

opendir(DIR, "/var/spool/mqueue"
@files = readdir(DIR);

foreach $file (@files)
{
if($file =~ /qfh[0-9a-z]/)
{
print "$file\n";

}
}
closedir(DIR)

 

[tonykent]

Try this:

$mydir="/var/spool/mqueue";
opendir(DIR,$mydir);
@files = readdir(DIR);

foreach $file (@files)
{
if($file =~ /qfh[0-9a-z]/)
{
print "$file\n";
$fullname=$mydir.'/'.$file;
open (AFILE, "$fullname"
@array1 = <AFILE>;
foreach $line(@array1) {
<carry out search here>;}
close (AFILE);
}
}
closedir(DIR)

 

[cnw40007]

That worked thanks very much for your help
cnw40007

 

[missbarbell]

An even easier method:

use File::Find::Rule;
my @files = File::Find::Rule->file()->name( 'qfh*.*' )->in( &quot;/var/spool/mqueue&quot; );

This will store all the files, with full paths, in the @files array.

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org