in reply to Re: How to search keywords In sequence or according to timing from a text files In Perl ?
in thread How to search keywords In sequence or according to timing from a text files In Perl ?

Hi,, Can I get the output Into respective file rather than Into single file e.g. If I am parsing keywords from main_log then output something like output_main_log & if I am parsing though main_log(2) then output generated In output_main_log(2)rather than In the single file to have more clarity ? Thanks
  • Comment on Re^2: How to search keywords In sequence or according to timing from a text files In Perl ?

Replies are listed 'Best First'.
Re^3: How to search keywords In sequence or according to timing from a text files In Perl ?
by poj (Abbot) on Feb 22, 2017 at 14:27 UTC

    Move the output code inside the @files loop

    foreach my $file (@files) { my @output = (); print "\n Processing with file $file \n"; open my $fh, '<', $file or die $!; my $count = 0; while (<$fh>){ ++$count; # match any keyword if (/($re)/){ my $kw = $1; push @output, [$kw,$file,$count,$_]; } } close $fh; # sort by record timestamp @output = sort { $a->[3] cmp $b->[3]} @output; #pp \@output; # output my $outfile = 'output_'.$file; print "Check the output generated In file $outfile\n"; open my $fh_out, '>', $outfile or die "$!"; for (@output){ my $kw = $_->[0]; if ( defined $kwhashref->{$kw} ){ print $fh_out "\n*******$kwhashref->{$kw}*******\n"; } printf $fh_out '%s in file %s, line %d:%s'.$/, @$_; } close $fh_out; }
    poj
      Thank you !! It's working