How to print question

[mmccaws2]

I can't quite recall the printing term so please bear with me. When
you want your user to know that something is happening the app often
will print to the screen saying something like "load ...". I want to
create the same sort of script that produce a "." or similar symbol
for each fraction of second that goes by. If I knew the 'key' words
I'd search for it.

thanks

Mike

 

[A. Sinan Unur]

2g2000hsn.googlegroups.com:

I can't quite recall the printing term so please bear with me.
When you want your user to know that something is happening the
app often will print to the screen saying something like "load
...". I want to create the same sort of script that produce a "."
or similar symbol for each fraction of second that goes by.

Why? Does your user not have a watch or something?

If I knew the 'key' words I'd search for it.

I would be much more interested in knowing how much 'progress' is
being made.

For example, I once wrote a script to generate 1536 png files after
some data processing. It ran in about 20 minutes.

### pseudo code

{
my $progress = 0;
while ( $datasets->next ) {
# process data set
++ $progress;
print STDERR '.' unless $progress % 100;
}
}

###

so that a dot was printed every time 100 data sets were completed.

In this throaway script, I used STDERR because STDOUT actually had
other important output going to it.

Sinan

--
A. Sinan Unur <[email protected]>
(remove .invalid and reverse each component for email address)

comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/

 

[Ben Morrow]

I can't quite recall the printing term so please bear with me. When
you want your user to know that something is happening the app often
will print to the screen saying something like "load ...". I want to
create the same sort of script that produce a "." or similar symbol
for each fraction of second that goes by. If I knew the 'key' words
I'd search for it.

print? Which part of the program are you having a problem with?
Something like

use Time::HiRes qw/sleep/;

$| = 1;

print 'loading';

for (1..100) {
sleep 0.1;
print '.';
}

print "\n";

works, but presumably you don't *just* want to mark the passage of time.

Ben

 

[mmccaws2]

print? Which part of the program are you having a problem with?
Something like

    use Time::HiRes qw/sleep/;

    $| = 1;

    print 'loading';

    for (1..100) {
        sleep 0.1;
        print '.';
    }

    print "\n";

works, but presumably you don't *just* want to mark the passage of time.

Ben

Your code is almost exactly what I had. But what is the "$| = 1;"
for?

Mike

 

[Jürgen Exner]

Your code is almost exactly what I had. But what is the "$| = 1;"
for?

See "perldoc perlvar"

jue

 

[Steven M. O'Neill]

Your code is almost exactly what I had. But what is the "$| = 1;"
for?

perldoc perlvar | grep '$|'

 

[mmccaws2]

    perldoc perlvar | grep '$|'

Thanks everyone The missing link was the $| = 1;

Mike