http://qs321.pair.com?node_id=758955

grashoper has asked for the wisdom of the Perl Monks concerning the following question:

I am wondering how to go about capturing the output of an output file while another program is running, I have been able to open the file and it reads until it hits a pause then it seems to stop processing, I would like to take this file(s) contents which are being generated by mercury loadrunner and copy them to another file, primarily to check for errors. My thought is that I could search for transactions, and send a message alert if it either took to long or failed? my current loadrunner script does capture the times the transaction took, however loadrunner is set to continue on error and even if no authentication is performed it claims it performed the transactions, when I look at the log though I get messages like not authenticated and failed to retrieve etc. I get readline on closed filehandle INFO currently.
#!/usr/bin/perl use win32::OLE qw(in); use warnings; #$search="possible error text"; open(INFO, "E:\\Mibor_TimingTest\\Mibor\\output.txt"); open(OUT, "c:\\perl\\scripts\\counter.txt"); my @array=<INFO>; foreach $line(@array){ print (OUT "$line"); }close (INFO); close (OUT);