diff --git a/deep_fixitycheck.pl b/deep_fixitycheck.pl index fafc5e4840e01c531bcd7bec0aff92c697c32bc7..6e0eb42bd03ad36a886224d98fcfcd1780c3d72b 100644 --- a/deep_fixitycheck.pl +++ b/deep_fixitycheck.pl @@ -267,7 +267,7 @@ sub check_file_fixities($$) { binmode($fh); my $buffer; my $block=0; - my $blocksize = 8*1024; # 8kB blocks + my $blocksize = 128*1024; # 128kB blocks while (1) { my $ret = read($fh, $buffer, $blocksize); if (defined $ret) { @@ -352,7 +352,8 @@ if (defined $search_dir && -d "$search_dir") { while ( <$fh_unsorted_file>) { # scan each IE $stat->{IEs}++; chomp; - print $progressbar->report("parse IE files: %40b running: %L ETA: %E ($count/$cnt_unsorted_files IEs) \r", ++$count); + my $transferrate_in_MBs = sprintf("%0.2f", $stat->{scansize} / (time - $stat->{begin}+1) / 1024 / 1024); + print $progressbar->report("parse IE files: %40b running: %L ETA: %E ($count/$cnt_unsorted_files IEs, tfr=$transferrate_in_MBs MB/s) \r", ++$count); my $ret = parse_iexml( $_, $recovery); foreach my $fileobj (@{ $ret->{files} }) { $fileobj->{file_mounted} = map_file($map_path, $fileobj->{filepath});