git.shiar.nl
/
git-grep-footer.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b1c0ccc
)
count option
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Feb 2011 03:25:54 +0000
(
04:25
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 4 Feb 2011 03:26:32 +0000
(
04:26
+0100)
git-grep-footer
patch
|
blob
|
history
diff --git
a/git-grep-footer
b/git-grep-footer
index ff279a606bc2ad4cc8545b1e2e14f039b23550ce..8ac3a03b0a9fcf1225b5e33c4f564f1439ec266d 100755
(executable)
--- a/
git-grep-footer
+++ b/
git-grep-footer
@@
-9,6
+9,7
@@
use Getopt::Long qw(:config bundling);
GetOptions(\my %opt,
'debug!',
GetOptions(\my %opt,
'debug!',
+ 'count|c!',
'simplify|s:s',
'ignore-case|i!',
'min|min-count|unique|u:i',
'simplify|s:s',
'ignore-case|i!',
'min|min-count|unique|u:i',
@@
-23,6
+24,8
@@
local $/ = "\0";
my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;
my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;
+my (%headercount, @headercache);
+
while (readline) {
s/(.+)\n//m;
my $hash = $1;
while (readline) {
s/(.+)\n//m;
my $hash = $1;
@@
-105,19
+108,28
@@
while (readline) {
}
for (@headers) {
}
for (@headers) {
+ my $line = $_->[2] // join(': ', @$_);
if (defined $opt{min} or $opt{max}) {
if (defined $opt{min} or $opt{max}) {
- state $seen;
- my $count = $seen->{ $_->[0] }->{ $_->[1] // '' }++;
- next if $count >= ($opt{min} // 0) + ($opt{max} || 1);
- next if $count < ($opt{min} // 0);
+ my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
+ my $excess = $$counter++ - ($opt{min} // 0);
+ next if $excess >= ($opt{max} || 1);
+ next if $excess < 0;
+ if ($opt{count}) {
+ push @headercache, [ $line, $excess ? \undef : $counter ];
+ next;
+ }
}
}
- say $
_->[2] // join(': ', @$_)
;
+ say $
line
;
}
last BLOCK;
}
}
}
last BLOCK;
}
}
+for (@headercache) {
+ say ${$_->[1]} // '', "\t", $_->[0];
+}
+
__END__
=head1 NAME
__END__
=head1 NAME