Progress indicator during a filehandle while

oblikon has asked for the wisdom of the Perl Monks concerning the following question:

Hello all,

I'm a newbie here, and so I may be doing things in a very evil way, but I'm trying to write a script that builds an imapsync command, and then launch it.

I have it working, but when i call my script, it doesn't print the "." I use for a progress indicator until after the other script has run.

Anyway, here is the offending code:

open(IMAPSYNCOUTPUT,"$imapsynccommand|");
open(LOGFILE,">>$imapsynclog");
my $num = 1;
while (<IMAPSYNCOUTPUT>) {
    print LOGFILE "$_";
    if ($num == 1) {
        print ".";
        $num++;
    } elsif ($num < 10) {
        $num++;
    } else {
        $num = 1;
    }
}
[download]

I'd appreciate any help you could give,

Thanks,

Oblikon

Comment on Progress indicator during a filehandle while Download Code

Replies are listed 'Best First'.
Re: Progress indicator during a filehandle while by FunkyMonk (Bishop) on Aug 29, 2007 at 18:05 UTC
You need to turn autoflush on with `$\| = 1;`. See autoflush in perlvar.	[reply] [d/l] [select]
Re^2: Progress indicator during a filehandle while by ikegami (Patriarch) on Aug 29, 2007 at 19:05 UTC
For more info on the subject, read Suffering from Buffering?	[reply]
Re: Progress indicator during a filehandle while by duckyd (Hermit) on Aug 29, 2007 at 22:24 UTC
You might also consider using $., the current line number of the last filehandle accessed, like so: `while(<DATA>){ print '.' if $. % 10 == 0; }` [download]	[reply] [d/l]
Re: Progress indicator during a filehandle while by agianni (Hermit) on Aug 29, 2007 at 18:34 UTC
You might consider using Smart::Comments for your progress indicator. `perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi +n(q{},map{sprintf(qq{%010u},$_)}(2*23074993,51016415261,75979 +36997,13177145131,3*26789167*181))=~/\d{2}/g));'` [download]	[reply] [d/l]
Re: Progress indicator during a filehandle while by oblikon (Initiate) on Aug 29, 2007 at 19:30 UTC
the $\| = 1; worked perfectly, thank you	[reply]