18 |
|
|
19 |
foreach(@ARGV) { |
foreach(@ARGV) { |
20 |
my @found = `grep -i '$_' *.lua */*.lua | sed -e "s/:.*//ig" | sort | uniq`; |
my @found = `grep -i '$_' *.lua */*.lua | sed -e "s/:.*//ig" | sort | uniq`; |
|
# print "------------------------------------------------------------\n"; |
|
|
# print "Found for '$_'\n"; |
|
|
# print @found; |
|
21 |
foreach (@found) { |
foreach (@found) { |
22 |
chomp; |
chomp; |
23 |
if (exists $levels{$_}) { $levels{$_}++; } |
if (exists $levels{$_}) { $levels{$_}++; } |
26 |
} |
} |
27 |
} |
} |
28 |
|
|
|
# print "------------------------------------------------------------\n"; |
|
|
# print "Summary:\n"; |
|
29 |
foreach (keys %levels) { |
foreach (keys %levels) { |
|
# print "$levels{$_} $_\n"; |
|
30 |
if ($levels{$_}==$maxHits) { $maxHittenLevels{$_}=$maxHits; } |
if ($levels{$_}==$maxHits) { $maxHittenLevels{$_}=$maxHits; } |
31 |
} |
} |
32 |
|
|
45 |
print "maxHits=$maxHits\n"; |
print "maxHits=$maxHits\n"; |
46 |
my $index_regex = ''; |
my $index_regex = ''; |
47 |
foreach (keys %maxHittenLevels) { |
foreach (keys %maxHittenLevels) { |
48 |
# print "hit: $_\n"; |
if (not /^todo.lua/) { |
49 |
s/\.lua//ig; |
s/\.lua//ig; |
50 |
$index_regex .= "\\|^$_"; |
$index_regex .= "\\|^$_"; |
51 |
|
} |
52 |
} |
} |
53 |
$index_regex = '\\('.substr($index_regex,2).'\\|^[^|]*test[^|]*\\)[^a-z0-9_]'; |
$index_regex = '\\('.substr($index_regex,2).'\\|^[^|]*test[^|]*\\)[^a-z0-9_]'; |
54 |
|
|
|
# print "index_regex='$index_regex'\n"; |
|
|
|
|
55 |
open FILE, ">$outname" || die "Can't open '$outname'"; |
open FILE, ">$outname" || die "Can't open '$outname'"; |
56 |
my @hits= `grep -hi '$index_regex' index_*.txt`; |
my @hits= `grep -hi '$index_regex' index_*.txt`; |
57 |
print FILE @hits; |
print FILE @hits; |