Alright, gents, you and I were both right......."\r" works, as it should. It turns out that these computers today - and Perl - are even faster than I thought. My test data set was only 300 rows so by the time the program ran - and deleted - 300 rows the Perl program had only enough time to print the output once, making it 'appear' to not work. I had a suspicion that that may be the problem so I increased my test data set to 6000 and it worked fine. Thanks all!
Close this thread..... :-) Tony Esposito Oracle Developer, Enterprise Business Intelligence XO Communications Plano, TX 75074 Work Phone: 972-516-5344 Work Cell: 972-670-6144 Email: [EMAIL PROTECTED] -----Original Message----- From: Esposito, Anthony Sent: Tuesday, January 06, 2004 3:09 PM To: Jenda Krynicky; [EMAIL PROTECTED] Subject: RE: 'print' output on one line I tried that already but it just gives me the final count at the end. I would like the output to change - the row count, that is - as each 100 rows is committed with the final output - when the program ends - to be: INFO 3: start deleting rows. Rows deleted: 400 INFO 4: delete_rows.pl program ended. In other words, as time goes by, you see on your screen: INFO 3: start deleting rows. Rows deleted: 100 then ( overwriting the above ) INFO 3: start deleting rows. Rows deleted: 200 and so on until the end... Tony Esposito Oracle Developer, Enterprise Business Intelligence XO Communications Plano, TX 75074 Work Phone: 972-516-5344 Work Cell: 972-670-6144 Email: [EMAIL PROTECTED] -----Original Message----- From: Jenda Krynicky [mailto:[EMAIL PROTECTED] Sent: Tuesday, January 06, 2004 2:59 PM To: [EMAIL PROTECTED] Subject: Re: 'print' output on one line From: "Esposito, Anthony" <[EMAIL PROTECTED]> > I have a perl program ( with DBI ) which prints out a line to STDOUT > after every 100 database commits. I would like the 'print' to just > refresh the current line every time but - not knowing how to get > around it - the program instead prints a new line every 100 commits > like so: > > INFO 3: start deleting rows. > Rows deleted: 100 > Rows deleted: 200 > Rows deleted: 300 > Rows deleted: 400 > ... > print "Rows deleted: $rows_deleted\n"; Use \r instead of \n: print "Rows deleted: $rows_deleted\r"; > > $row_counter = 0; > > } > > } > > print "INFO 4: $0 program ended.\n"; and don't forget to add a \n in front of the "INFO 4..." HTH, Jenda ===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz ===== When it comes to wine, women and song, wizards are allowed to get drunk and croon as much as they like. -- Terry Pratchett in Sourcery -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
