yankeebushsoftware
asked on
How do I determine when my log file has finished or stopped being written to and record the duration between being invoked and stopped being written to?
How do I determine when my log file has finished or stopped being written to and record the duration between being invoked and stopped being written to?
#!C:\Perl\bin\perl
use File::Tail;
my $ref=tie *FH,"File::Tail",(name=>'M odemLog.tx t', tail=>-1);
while( <FH> )
{
++$.;
print "passed $.\n" if /usrAppInit: Done./;
print "it took ",time-$^T,"seconds\n";
}
#!C:\Perl\bin\perl
use File::Tail;
my $ref=tie *FH,"File::Tail",(name=>'M
while( <FH> )
{
++$.;
print "passed $.\n" if /usrAppInit: Done./;
print "it took ",time-$^T,"seconds\n";
}
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.