Gossamer Forum: General: Perl Programming: Perl Print Question

Mar 29, 2007, 12:28 PM

dipdill

New User (2 posts)

Mar 29, 2007, 12:28 PM

Post #1 of 4

Shortcut

Perl Print Question

Ok i'm still very new to perl and i was wondering is there a way to have a script reprint over the same line... like a progress bar? i know if i do a

$i = 0;
while ($i <= 10)
{
print "$i\n";
$i++;
}

it will generate:

1
2
3
4
5
6
7
8
9
10

So is there a way to have it keep over writing itself so i can see the numbers still counting on my output... but the final print out will only show 10?

Thanks

Mar 30, 2007, 1:55 AM

Andy

Veteran / Moderator (17364 posts)

Mar 30, 2007, 1:55 AM

Post #2 of 4

Shortcut

Re: [dipdill] Perl Print Question In reply to

Hi,

You could do this when running via SSH/Telnet:

Code:
for (my $i = 1; $i <= 10; $i++) {  
   print $i . "\n"; 
   sleep 1; 
}

You can onjly use "sleep" when running via Telnet or SSH, so calling this function from the browser will just print out 1-10, without the "loading" sense =)

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Mar 30, 2007, 6:30 AM

dipdill

New User (2 posts)

Mar 30, 2007, 6:30 AM

Post #3 of 4

Shortcut

Re: [Andy] Perl Print Question In reply to

Not exactly what i am looking for... i can get it to print 1 number on each line... what i am looking for is a print statement that will print "1" then go back and overwrite "1" with "2"... then back and overwrite "2" with "3". the /n on the print sends me to a new line and prints the output on that line.

Hope this helps a little more with what i am looking for.

Thanks

Mar 30, 2007, 7:39 AM

Andy

Veteran / Moderator (17364 posts)

Mar 30, 2007, 7:39 AM

Post #4 of 4

Shortcut

Re: [dipdill] Perl Print Question In reply to

Hi,

Ok, probably still not quite what your looking for - but I'm afraid its about as close as you're going to get;

http://www.ultranerds.com/...in/test.cgi?num_on=9

Code:
#!/usr/bin/perl 

use strict; 

my $count_to = 10; 

my $self = "test.cgi"; 

######################## 

use CGI; 
my $IN = new CGI; 

my $num_on = $IN->param('num') || 0; 

$num_on++; 

print qq| 
<script> 
<!-- 
function autoChange() 
{ 
var timeID = setTimeout("location.href= '$self?num_on=$num_on'", 1) 
} 
//--> 
</script> 
 <body onLoad="autoChange()"> 
   <p>$num_on</p> 
 </body> 
|;

Hope that helps.

Cheers

Andy (mod)
andy@ultranerds.co.uk