in reply to Re^3: Time modules
in thread Time modules
### The output is not entirely accurate. For a large filesystem this is painted across my screen and counts down. For smaller filesystems, numbers are not calculated quickly enough and all I see is n/a. For mid-size filesystems all I see is 100% ###<snip> else { my ( $size_input ) = pop @_ ; if ( $^O !~ /(?:)dec\w+/i ) { my ( $dev,$ino,$mode,$nlink,$uid,$gid ) ; (( $dev,$ino,$mode,$nlink,$uid,$gid ) = lstat($_) ) && ( $dev >= 0 ) && !( $File::Find::prune |= ($dev != $File::Find::topdev ) ) +&& ( int(((-s _) + 1023) / 1024 ) >= $size_input ) && push ((@large_files), $name) ; $number_of_files = scalar @large_files ; $timer->restart( min => 0, max => $number_of_files ) ; print $timer->report( "%45b %p\r", 10 ) ; }
In the code print $timer->report( "%45b %p\r", 10 ) ; does 10 represent % points to increment or decrement in his calculations? thank you##################################........... 76.9% #########################.................... 55.6% "output of the file find hereafter"
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: Time modules
by ELISHEVA (Prior) on Feb 25, 2009 at 15:09 UTC | |
by mikejones (Scribe) on Feb 25, 2009 at 15:36 UTC |