Perl

Perl RSS

parsing multiple files in current directory

•

Join Date: Apr 2007

Posts: 1

Reputation: thego!team is an unknown quantity at this point

Solved Threads: 0

thego!team thego!team is offline

Offline

Newbie Poster

parsing multiple files in current directory

Apr 13th, 2007

Hi,
If it's not too much trouble I would appreciate some help with this - how can I iterate through multiple files in the current directory, opening one after another? For example all files with a name matching students_*.html format. I'm not concerned with files contained in sub-directories.

I've searched for a solution but haven't found anything; if this has already been answered please show me where.

Thanks in advance for your time.

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: parsing multiple files in current directory

Apr 13th, 2007

two ways to go about it:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
chdir("path/to/dir") or die "$!";
opendir (DIR, ".") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
{
   local @ARGV = @files;
   while(<>){
      #each file will be read line by line here
   }
}
chdir("path/to/dir") or die "$!";
opendir (DIR, ".") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
{
   local @ARGV = @files;
   while(<>){
      #each file will be read line by line here
   }
}

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
opendir (DIR, "path/to/dir") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
foreach my $file (@files) {
   open(FH,"path/to/$file") or die "$!";
   while (<FH>){ 
     #read file line by line here
   }
   close(FH);
}
opendir (DIR, "path/to/dir") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
foreach my $file (@files) {
   open(FH,"path/to/$file") or die "$!";
   while (<FH>){ 
     #read file line by line here
   }
   close(FH);
}

•

Join Date: Nov 2009

Posts: 1

Reputation: thirilog is an unknown quantity at this point

Solved Threads: 0

thirilog

Offline

Newbie Poster

What would be the same for multiple sub directories?

20 Days Ago

What would be the same for multiple sub directories?
Thanks in Advance,
Thirilog

•

Originally Posted by KevinADC

two ways to go about it:
Help with Code Tags

Perl Syntax (Toggle Plain Text)
chdir("path/to/dir") or die "$!";
opendir (DIR, ".") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
{
   local @ARGV = @files;
   while(<>){
      #each file will be read line by line here
   }
}
chdir("path/to/dir") or die "$!"; opendir (DIR, ".") or die "$!"; my @files = grep {/students_.*?\.html/} readdir DIR; close DIR; { local @ARGV = @files; while(<>){ #each file will be read line by line here } }
Help with Code Tags

Perl Syntax (Toggle Plain Text)
opendir (DIR, "path/to/dir") or die "$!";
my @files = grep {/students_.*?\.html/}  readdir DIR;
close DIR;
foreach my $file (@files) {
   open(FH,"path/to/$file") or die "$!";
   while (<FH>){ 
     #read file line by line here
   }
   close(FH);
}
opendir (DIR, "path/to/dir") or die "$!"; my @files = grep {/students_.*?\.html/} readdir DIR; close DIR; foreach my $file (@files) { open(FH,"path/to/$file") or die "$!"; while (<FH>){ #read file line by line here } close(FH); }