[gurupn12481]

Hi,

Can anyone please help me on the below issue?

I have a input log file that will be growing. I need to read this input file and print the last record whenever certain pattern matches (pls remember that input file is dynamic - other files will be writing to it). I'm not able to write to the output file but print it on STDOUT. Code piece is below:

#!/usr/bin/perl
use strict;
use IO::Handle;
open(IN, "posfile.txt"); ## this file will be growing
for (; {
while (<IN>) {
my @array = split /\|/;
if (eof) {
open(OUT, ">posoutfile.txt") or die "cant open file\n";
print OUT $_;
#print $_;
}
IN->clearerr();
}
}

The above code displays output on STDOUT, but not to the output file (OUT Filehandle).

Thanks is advance.

[wickedxter]

Code:

#!/usr/bin/perl
use strict;
use IO::Handle;

open(OUT,">>posoutfile.txt");  #open output file for appending so multi writes can happen
open(IN, "posfile.txt");    ## this file will be growing open input for reading
while (<IN>){    # read each line of posfile.txt
 ($line) = split(/\|/,$_); # split each line with the |
 print OUT $line if ($line =~ //); # match using a regex to capture what ur lookin for and print to OUT
}
close IN;
close OUT;

hope this helps or if not let me know.