mdb has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/local/bin/perl -w use strict; use Time::Local; use lib "$ENV{SCMS_HOME}lib"; use logme; my $logFileName = shift; logme::init($logFileName); my @syb1 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +1.csh"); logme::log("INFO","SYB 1 TLM Check @syb1\n"); my @syb2 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +2.csh"); logme::log("INFO","SYB 2 TLM Check @syb1\n"); my @syb3 = system("/home/cfso/scripts/EVL_Loggers/check_tlm_MCF_EA_SYB +3.csh"); logme::log("INFO","SYB 3 TLM Check @syb1\n");
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How to log a system call
by samarzone (Pilgrim) on Dec 13, 2010 at 08:23 UTC | |
|
Re: How to log a system call
by Anonymous Monk on Dec 13, 2010 at 07:21 UTC |