Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

array scoping

by Mark.Allan (Sexton)
on Oct 11, 2013 at 09:20 UTC ( #1057852=perlquestion: print w/replies, xml ) Need Help??
Mark.Allan has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks

I have a question about scoping. I have a logfile which is like this

The job started at Fri Oct 11 07:01:10 BST 2013 log4j:WARN No appenders could be found for logger log4j:WARN Please initialize the log4j system properly. Error checking credentials The job completed at Fri Oct 11 08:01:10 BST 2013

From this logfile I need to perform various check at 9am. One is to check job started on correct date, if it doesnít print that is hasnít, check that job has completed on correct date, again if it hasnít then print it hasnít. This check is done 9am every day. The script is working but the problem I am having is I want to store the last known output value even outside the time window, so if during the time window the error message is"The job failed to complete", I need to store this value outside the time window until the next days check. As it stands and I understand why but my output is getting overwritten with the default output when it completes the time block

Do I need to write this to a logfile or can I use some special array/variable retainer?

Script as is.

#!/usr/bin/perl
use strict; use warnings; my $joblog = "/usr/logs/app.log"; my $M1 = "The job completed successfully"; my $M2 = "The job failed to start"; my $M3 = "The job failed to complete"; my $M4 = "The log does not exist"; my @tm = localtime; my ($started,$completed); chomp(my $jobdate=`date +"%a %b %d"`); my @output; if (($tm[2] == 9) && ($tm[1] == 00)) { if (-e $joblog) { local $/; open(my $fh, '<', $joblog); my @content = <$fh>; for(@content) { next unless (/^The job/); if (m/^The job started at $jobdate/){ $started = 1;} push (@output,"$M2") if ! $started; print @output and exit if ! $started; if (/^The job ended at $jobdate/){ $completed = 1; push (@output,"$M1"); print @output and exit if $started;} } @output="$M3" if ! $completed; print @output and exit if ! $completed; } else{print "$M4";} } else { print @output if defined;}

Replies are listed 'Best First'.
Re: array scoping
by jethro (Monsignor) on Oct 11, 2013 at 12:05 UTC

    Maybe it is just me, but I don't understand your question. " I want to store the last known output value even outside the time window". Which output value? Output value from what? Which time window? "but my output is getting overwritten with the default output when it completes the time block" time block?

Re: array scoping
by VincentK (Beadle) on Oct 11, 2013 at 15:23 UTC

    Hello. Unless I misinterpreted your question, it sounds to me like you want to "remember" a value in the script from a previous execution cycle.

    Unless the script is going to be running continuously, I would go with the logfile route.

      Thats correct, logfile it is. Thanks

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1057852]
Approved by Corion
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (1)
As of 2018-07-22 05:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (451 votes). Check out past polls.

    Notices?