lib/PXElator/progress_bar.pm

package progress_bar;

use warnings;
use strict;

use Time::HiRes qw/time/;
use Data::Dump qw/dump/;

our $start_t;
our $last_t;

sub start {
        $start_t = $last_t = time();
}

sub tick {
        die "arguments wrong: ",dump( @_ ) unless $#_ == 2;
        my ($file, $pos, $size) = @_;

        return unless $size;

        my $t = time();
        return unless   $start_t == $last_t
                                ||      $pos == $size
                                ||      $t - $last_t > 0.75 # s
                                ;

        $last_t = $t;
        $t -= $start_t;
        return unless $t;

        my $speed = $pos / $t;
        return unless $speed;

        printf STDERR "%s %d/%d %.2f%% %.2f K/s ETA %.1fs   \r"
                , $file, $pos, $size
                , $pos * 100 / $size
                , $speed / 1024
                , ( $size - $pos ) / $speed
                ;
}

1;
1	package progress_bar;
2
3	use warnings;
4	use strict;
5
6	use Time::HiRes qw/time/;
7	use Data::Dump qw/dump/;
8
9	our $start_t;
10	our $last_t;
11
12	sub start {
13	$start_t = $last_t = time();
14	}
15
16	sub tick {
17	die "arguments wrong: ",dump( @_ ) unless $#_ == 2;
18	my ($file, $pos, $size) = @_;
19
20	return unless $size;
21
22	my $t = time();
23	return unless $start_t == $last_t
24	\|\| $pos == $size
25	\|\| $t - $last_t > 0.75 # s
26	;
27
28	$last_t = $t;
29	$t -= $start_t;
30	return unless $t;
31
32	my $speed = $pos / $t;
33	return unless $speed;
34
35	printf STDERR "%s %d/%d %.2f%% %.2f K/s ETA %.1fs \r"
36	, $file, $pos, $size
37	, $pos * 100 / $size
38	, $speed / 1024
39	, ( $size - $pos ) / $speed
40	;
41	}
42
43	1;