I am done processing and I want to place the final output line also on
the screen. Here is what I have:
if ( $GlblInfo{audit} ) {
printf "\n\n*****Should be last line in the audittrail
file...*****\n\n";
close(STDOUT);
close(STDERR);
open(STDOUT , '>') || die "Unable to open STDOUT: $!";
if ( $GlblInfo{continues} ) {
printf "\n\n*EndOfProg*"x7 . "\n\n";
}else {
printf "\n\n**Error*"x9 . "\n\n";
}
}
I have looked at perldoc -f open and tried a number of things. The line
"should be last line" is appearing in my audittrail file, but I never see the
EndOfProg or Error in the auditrrail or on the screen.
I am running with AS 5.8.9 build 825 on XP SP2.
I have tried a number of different things after reading different docs,
but I must be missing some very simple thing.
Any ideas would be greatly appreciated.
Thanks.
Wags ;)
David R. Wagner
Senior Programmer Analyst
FedEx Freight Systems
1.719.484.2097 Tel
1.719.484.2419 Fax
1.408.623.5963 Cell
http://fedex.com/us
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
