A small script I wrote to see how fast a file grows (for instance when it’s being copied from one partition to another, disk to disk, network to network, …)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
#!/usr/bin/perl use strict; use warnings; my $file = shift @ARGV; $| = 1; my @LABELS = qw/kbytes mbytes gbytes/; my $prev_size = -s $file; my ($_TOTAL, $count) = (0, 1); while(1) { my $size = -s $file; my $size_diff = $size - $prev_size; $_TOTAL = ( $_TOTAL + $size_diff ) / $count++; my($total, $label) = human_readable($_TOTAL); printf "r%80s", ' '; printf "rSize: %0.2f %s | Speed: %0.2f %s/s", human_readable($size) , $total , $label; sleep 1; $prev_size = $size; } sub human_readable { my ($bytes) = @_; my $label = 'bytes'; my @labels = @LABELS; while ( $bytes > 1024 ) { $bytes /= 1024; $label = shift @labels; } return ($bytes, $label); } |