Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Progress indicator during a filehandle while

by duckyd (Hermit)
on Aug 29, 2007 at 22:24 UTC ( [id://635948] : note . print w/replies, xml ) Need Help??


in reply to Progress indicator during a filehandle while

You might also consider using $., the current line number of the last filehandle accessed, like so:
while(<DATA>){ print '.' if $. % 10 == 0; }