exigrey.pl
changeset 38 329e69e5c6dd
parent 36 4c717800f8ef
child 40 6c7654c34d3a
equal deleted inserted replaced
37:85968da03d1f 38:329e69e5c6dd
    83 	foreach (@ARGV = getDBs(@ARGV)) {
    83 	foreach (@ARGV = getDBs(@ARGV)) {
    84 	    my %h;
    84 	    my %h;
    85 	    my $db = connectDB(\%h, $_);
    85 	    my $db = connectDB(\%h, $_);
    86 
    86 
    87 	    my ($seen, $returned, $oldest_c, $oldest_u);
    87 	    my ($seen, $returned, $oldest_c, $oldest_u);
       
    88 	    $seen = $returned = 0;
    88 	    $oldest_c = $oldest_u = time();
    89 	    $oldest_c = $oldest_u = time();
    89 	    iterate(%h, sub {
    90 	    iterate(%h, sub {
    90 		my ($item, $v0, $v1, $c) = @_;
    91 		my ($item, $v0, $v1, $c) = @_;
    91 		++$seen;
    92 		++$seen;
    92 		++$returned if $v0 != $v1;  # soon it can be $c
    93 		++$returned if $v0 != $v1;  # soon it can be $c