Searching a lot of files

[Nafees99]

Hi all:

I am new to PerlScripting .I got an assignment for parsing number of files at one time.The scenario is that I have 5 txt files in the same folder with different names (like SA1,XA2 etc.).I have to go through all these files and search for a pattern N008710LP in all the files and then stream the whole which contains this pattern to a new file which I have to create in the same script (in the format of Issuesmmddyyyy.txt).Can anyone give me a startup on that I will be very thankful.

Thanks

[KevinADC]

my @files =qw(foo.txt bar.txt blah.txt);
foreach my $file (@files) {
   put Travis code here from Tek-Tips
}

[Nafees99]

Hi KevinD:

Actually what I am trying to do here is to search a large number of files for a pattern NA001 in the folder /home/pp/.I
have many .txt files in the pp folder. I came up with the follwing code which will goto the pp folder and get the
name of the txt files in the pp folder and stores those @filenames array .This far is running good as I already tested it.
Now comes the searching part I am really stuck here I want my script here search each text file in my array @filenames in
the pp folder for the NA001 and the print filename and the whole line .Please see the code below.

#!/usr/bin/perl
 
opendir(CDIR,".");
 
@filenames = grep(/\.txt/,readdir(CDIR));
@filenames=sort(@filenames);
closedir(CDIR);
 
 
foreach my $file(@filenames)) {
open(FILE,"./pp/") or die "Can't open path ";
while(<FILE>){
if (/NA001/) {
print "$_\n";
}
close FILE;
}
 

I will appreciate your help.

Thanks,

A Perl Beginner :)

[KevinADC]

The biggest problem is that you have not done anything with the $file variable in the "foreach" loop. I am not sure where $file goes in this path:

open(FILE,"./pp/")


but just plug it in where ever it goes and the script should work. I have fixed one syntax error and rewritten the script to compile with "strict" turned on:

#!/usr/bin/perl
# use these two pragmas from now on!
use strict;
use warnings;
 
# this part is good
opendir(CDIR,".");
my @filenames = grep(/\.txt/,readdir(CDIR));
@filenames = sort(@filenames);
closedir(CDIR);
 
 
# here you didn't do anything with $file
# and you had at least one syntax error 
# plug $file into the path and run the script
foreach my $file (@filenames) {
    open(FILE,"./pp/") or die "Can't open path ";
    while(<FILE>){
        if (/NA001/) {
            print "$_\n";
        }
    }
    close FILE;
}