projects
/
dupemerge
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f8a17dc
)
Add file sizes to --progress output, once per second
author
Zygo Blaxell
<zblaxell@waya.furryterror.org>
Sat, 9 Jan 2010 04:20:06 +0000
(23:20 -0500)
committer
Zygo Blaxell
<zblaxell@waya.furryterror.org>
Sat, 9 Jan 2010 04:20:06 +0000
(23:20 -0500)
faster-dupemerge
patch
|
blob
|
history
diff --git
a/faster-dupemerge
b/faster-dupemerge
index bc3a5afcbc180802af38153d471144ab5e31e6f4..683ed32917c6a72d8e15b52fc1e5aadc518b2b95 100755
(executable)
--- a/
faster-dupemerge
+++ b/
faster-dupemerge
@@
-587,6
+587,8
@@
end_merge:
undef %inode_to_file_name;
}
undef %inode_to_file_name;
}
+my $last_time = 0;
+
while (<FIND>) {
my ($weak_key, $size, $dev, $ino, $name) = m/^((\d+) \d+ \d+ \d+ -?[\d.]+) (\d+) (\d+) (.+)\0$/so;
die "read error: $!\nLast input line was '$_'" unless defined($name);
while (<FIND>) {
my ($weak_key, $size, $dev, $ino, $name) = m/^((\d+) \d+ \d+ \d+ -?[\d.]+) (\d+) (\d+) (.+)\0$/so;
die "read error: $!\nLast input line was '$_'" unless defined($name);
@@
-603,6
+605,14
@@
while (<FIND>) {
$skip_compares = $skip_compare_preference;
}
$skip_compares = $skip_compare_preference;
}
+ if ($progress) {
+ my $this_time = time();
+ if ($this_time != $last_time) {
+ $last_time = $this_time;
+ print STDERR "($size)";
+ }
+ }
+
$input_links++;
merge_files if $weak_key ne $current_key;
$current_key = $weak_key;
$input_links++;
merge_files if $weak_key ne $current_key;
$current_key = $weak_key;