Here's a sample. The trick is to turn on autoflushing ($|=1;) so that
your text gets printed out right away.
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
$|=1;
print header;
print start_html;
for (my $i=0; $i<100; $i++) {
print ".";
sleep 1;
}
print "<BR>\n";
print end_html;
On Fri, 2003-01-31 at 14:18, mario kulka wrote:
> I've seen some sites where they have dots progressing, till the next site
> loads. Do they simply first load a page with sama simple javasript to have
> the dots .... adding and then the result page from the script loads? I was
> thinking about putting a "redirect" but would the new HTML included in the
> same script load upon finishing the rest of the script. Does perl executes
> line by line or prepares the results somehow and outputs everything on the
> exit(); ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
