Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

updating file from output file using file tail

by grashoper (Monk)
on Apr 21, 2009 at 15:01 UTC ( [id://759010]=note: print w/replies, xml ) Need Help??


in reply to Re: print to file not working
in thread print to file not working

I am looking to capture the output of a log file which is being generated by another process into a new text file,initially I just want to be able to see the errors I am getting, but eventually I will want to be able to parse the file as it is being created for specific error messages. how do I do this will something like this work? taken from example in synopsis from file tail. $name? shouldn't this be defined somewhere?
use File::Tail; use win32::OLE qw(in); $file=File::Tail->new("E:\\mibor_timingtest\\mibor\\output.txt"); while (defined($line=$file->read)) { print "$line"; } use File::Tail; $file=File::Tail->new(name=>$name, maxinterval=>300, adjustafter=>7) +; while (defined($line=$file->read)) { open(OUT ">>", "c:\\test.txt"); print(OUT "$line"); } sub_do_something{ use win32::OLE qw(in); $search="stuff2searchfor"; open(OUT, "c:\\test.txt"); my @array=<INFO>; close (INFO); foreach $line(@array){ if ($line =~ /$search/) { print "found $line"; sendmail_call_here..to send alert }

Replies are listed 'Best First'.
Re: updating file from output file using file tail
by Anonymous Monk on Apr 22, 2009 at 07:00 UTC
    Hello? module names are case-sensitive. win32::OLE doesn't exist

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://759010]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2024-03-28 14:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found