Wagner, David --- Senior Programmer Analyst --- CFS wrote:
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: $!";
You're not opening STDOUT to anything. And you closed STDERR so the die
message can't go anywhere. In fact, it goes into an infinite loop. It
can't output to STDERR, so it sends a error message to STDERR saying so,
which it can't output, so it sends a message to STDERR which it can't
output...
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.
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
Regardless of how small the crowd is, there is always one in
it who has to find out the hard way that the laws of physics
applies to them too.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
