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;
 
                        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);
                                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.
 
 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
 =back
 
 =head1 AUTHOR