Diagnostics and printing

halxd2 has asked for the wisdom of the Perl Monks concerning the following question:

I'v been writting scripts that give the user a count-down until an event is about to start. It worked great:

while($time > 0)
{
   print " " . ' ' x (3 - length($time)) . "$time $text";
   foreach (1..$backcount){print "\b"}
   $time -= 1;
   sleep 1;
}
[download]

As I began to put the script up to public use, I removed use diagnositics; Then my code no longer printed. I have it nailed down to
diagnostics. Any one seen this before?

Carpenter's dilemma "Too soon old, too late smart"

Comment on Diagnostics and printing Select or Download Code

Replies are listed 'Best First'.
Re: Diagnostics and printing by waswas-fng (Curate) on Sep 03, 2002 at 15:35 UTC
If you are not seeing output as you expect try a `$\| = 1;` in the upper part of your script to turn off buffering. with buffering on sometimes you don't get output to the screen until a /n is printed or the buffer fills. -Waswas	[reply] [d/l]
Re: Re: Diagnostics and printing by halxd2 (Monk) on Sep 03, 2002 at 17:04 UTC
Thank you. This really should have been a RTFM. But I really am greatful for the pointer. I never looked into file printing until you pointed the way Carpenter's dilemma "Too soon old, too late smart"	[reply]