Re^4: Time modules

I made some progress, however I was not sure what you meant in number 2. Since I am using file find, my units would be every file greater than 25Mb for example.

<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 ) ;
        }
[download]

### 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% ###

##################################...........  76.9%
#########################....................  55.6%
"output of the file find hereafter"
[download]

In the code print $timer->report( "%45b %p\r", 10 ) ; does 10 represent % points to increment or decrement in his calculations? thank you

Comment on Re^4: Time modules Select or Download Code

Replies are listed 'Best First'.
Re^5: Time modules by ELISHEVA (Prior) on Feb 25, 2009 at 15:09 UTC
Neither. It means number of points completed so far. So assuming you are updating your progress bar after each 10 files and you had 50 files total, you'd set min=0, max=50 and each successive call would be something like this: `print $timer->report( "%45b %p\r", 10 ); #10 out of 50 files print $timer->report( "%45b %p\r", 20 ); #20 out of 50 files print $timer->report( "%45b %p\r", 30 ); #30 out of 50 files` [download] Best, beth	[reply] [d/l]
Re^6: Time modules by mikejones (Scribe) on Feb 25, 2009 at 15:36 UTC
Hi Beth, So you are saying I should make this print timer call three times in my loop? My max is number of files which of course varies from filesystem to filesystem. thank you	[reply]


There's more than one way to do things
	PerlMonks