From 22812e33447f30e70780fa8beea6028595584472 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 8 Dec 2008 22:27:53 +0000 Subject: [PATCH] compress: more reporting --- compress_fingerprints | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/compress_fingerprints b/compress_fingerprints index 44abf94..377a517 100755 --- a/compress_fingerprints +++ b/compress_fingerprints @@ -15,13 +15,17 @@ my %recs = (); # fingerprints belonging to each record open FP, '<', $ARGV[0] or die "Can't open input file: $!\n"; my $count = 0; +my $i = 0; my $total = `wc -l $ARGV[0]`; +$| = 1; print "Loading and ranking fingerprints\n"; while () { my @fields = split "\t", $_; my $fp = populate_fingerprint(@fields); rank_fingerprint($fp); + $i++; + print "\r", ( int($i / $total) ), "% complete" unless ($i % 1000); } print "$total fingerprints processed\n"; print "$count records set as leads\n"; -- 1.7.2.5