From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 16 May 2013 09:04:37 +0000 (+0000)
Subject: more verbose grab output
X-Git-Url: https://git.donarmstrong.com/?p=biopieces.git;a=commitdiff_plain;h=c932def8cbb86723bbce9ca79692ebbed59e9528

more verbose grab output

git-svn-id: http://biopieces.googlecode.com/svn/trunk@2172 74ccb610-7750-0410-82ae-013aeee3265d
---

diff --git a/bp_bin/grab b/bp_bin/grab
index 76e333a..b034f2d 100755
--- a/bp_bin/grab
+++ b/bp_bin/grab
@@ -139,6 +139,8 @@ if ( $options->{ 'verbose' } )
 {
     print STDERR "Records grabbed: $grabbed\n";
     print STDERR "Records missed: " . ( $total - $grabbed ) . "\n";
+    print STDERR "Patterns used: " . ( scalar @{$patterns} ) . "\n" if defined $patterns;
+    print STDERR "Patterns used: " . ( scalar keys %lookup_hash ) . "\n" if %lookup_hash;
 }