Looking for a string from a huge log file

[perl_req]

Hi All, I am looking for a certain string from a huge log file for approx 1000 ID's. The log file is in a text format. Each log file is separate for each ID and the no of lines each has varies. With the code I have written it goes into each log file, looks for that particular string. When it does not find anything it does not print anything. But once it hits the string I am looking for it keeps on printing the same string for all the other ID's. Any help will be greatly appreciated. My code is as below:

$messages = "N/A";
open(MYINPUTFIL3, "file path");

while(<MYINPUTFIL3>){
chomp;              
 $SYS=$_;

 $SYS =~ s/\r|\n//g;
                                                
if($SYS =~ /search string/i)
 { 
         $message_1=$SYS ;          
         $message_1 =~ s/\r|\n//g;
         $message_1=~ s/^\s+//;
         $message_1=~ s/\s+$//;
         $message_11 = $message_1;
         $message_12 = $message_1;
         $message_12 = s/[^a-zA-Z]*//g;
         $message_11 =~ s/[^0-9.]*//g;
     last;
                             
}


}
close MYINPUTFIL3;

print "$message_1\n";
open(FILEWRITE, ">>trial_one.txt");
print  FILEWRITE  "$message_1\n";
close (FILEWRITE);

[kennethk]

Your example leaves a little to be desired -- in order for monks to be able diagnose your issue, we need to be able to replicate it. This means providing some sample input and expected output in addition to code that displays this issue. See How do I post a question effectively?.

The problem you are describing is frequently caused by a variable that gets set in a loop, and then not cleared before it goes into another instance of that loop; this type of issue can usually be addressed with tight scoping of variables combined with the strict pragma. If I assume the code you posted occurs in a loop over a number of files, I'd expect including something like undef $message_1; at the end of your code might resolve your issue. But this is all conjecture without an effective problem statement.

[pvaldes]

Not my intention to be rude, but delete this script, think a little in what do you want to do and try again. Seriously, is very poor.

For example: You claim to have a big file, Well, you are chomping each same line of this huge file up to three times. So your script is very bussy... doing nothing. If you need to delete a special input separator redefine $/

Don't apply four lines of regex if you want to delete a line containing "my pattern". Use "grep-not" (grep !/my pattern/, FH) instead.

keeps on printing the same string for all the other ID's

because $_ is not changing at all in the last lines. The loop has finished when you print to outfile so you only have the last matched line of your log in $_.

can you explain a little what do you need to do?

while(<MYINPUTFIL3>){

Try to keep it simple and readable, filehandles don't need to be complicated:

while(<LOG>){

[ig]

it keeps on printing the same string for all the other ID's

It is hard to imagine how a program that only has two print statements, one to STDOUT and one to a file, outside any loop "keeps on printing". Can you clarify?

[swampyankee]

Not to make you feel persecuted...

What, exactly, are you trying to do? Pretend you're paying a monk a to write the code for you, but you're only allowed to talk to the monk once, and you don't get paid unless the program does what you want. The monk always gets paid, and gets paid a lot extra if you want to change something later.

Aside, what do you consider "huge"? Why are you doing all those substitutions? How many "hits" would you expect in your dataset? On 0.1% of records or 75%?