Member Avatar for 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 $line = $_;
my @array = split /\|/;
if (eof) {
open(OUT, ">posoutfile.txt") or die "cant open file\n";
print OUT $_;
#print $_;
}
IN->clearerr();
}
}

Thanks is advance.

  • 2 Contributors
  • 1 Reply
  • 93 Views
  • 1 Week Discussion Span
  • Latest Post Latest Post by mitchems
Member Avatar for mitchems

Is this on Unix? What I would do is use:

tail -f -n [# of lines] | grep [pattern] >> file.txt

And not use perl at all. If it's on Windows, cygwin can help with that.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.