document count option (and imply unique)
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 5 Feb 2011 01:51:14 +0000 (02:51 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 5 Feb 2011 01:51:14 +0000 (02:51 +0100)
git-grep-footer

index 2e42b4a49f576614b139b2f6104028c5b2ae3c00..b676ab8aef983e241ffb59921849d94075dd889d 100755 (executable)
@@ -125,7 +125,7 @@ while (readline) {
                        my $line = $_->[2] // join(': ', @$_);
                        $line =~ s/^/$hash / if defined $hash;
 
-                       if (defined $opt{min} or $opt{max}) {
+                       if (defined $opt{min} or $opt{max} or $opt{count}) {
                                my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
                                my $excess = $$counter++ - ($opt{min} // 0);
                                next if $excess >= ($opt{max} || 1);
@@ -211,6 +211,11 @@ The original line is given for each match,
 but simplifications still apply for duplicate determination.
 Additional samples are optionally given upto the given maximum.
 
+=item -c, --count
+
+Prefixes (unique) lines by the number of occurrences.
+Causes output to be buffered until all input has been read (obviously).
+
 =back
 
 =head1 AUTHOR