You can turn off buffering: $|=1; jagdish eashwar wrote: > Hi, > > I have written a script which accesses each file in a directory and > processes them in turn. While it is doing so, I want it to put out > status message like: > > "Processing $filename, please wait......" > > And then when the script has finished processing a file, I want it to > say "Done" at the end of the same line. > > For this, I have put > > 'print "Processing $filename, please wait......"; ' > > near the top of the loop, and > > 'print " Done\n";' > > at the bottom. > > When I do this, both the messages are put out at the same time after > the file is processed. If I put a \n at the end of the first message, > the messages are output one by one with the requisite time lag in > between, but the " Done" comes on the next line. How can I get Perl to > put out the messages on the same line with the time lag? > > jagdish eashwar > ------------------------------------------------------------------------ > > _______________________________________________ > Perl-Win32-Users mailing list > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >
_______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
