/[enigma]/enigma/data/levels/02grep_levels.pl
ViewVC logotype

Diff of /enigma/data/levels/02grep_levels.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by reallysoft, Wed May 14 10:45:28 2003 UTC revision 1.6 by reallysoft, Wed May 28 12:31:51 2003 UTC
# Line 18  my %maxHittenLevels = (); Line 18  my %maxHittenLevels = ();
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{$_}++; }
# Line 29  foreach(@ARGV) { Line 26  foreach(@ARGV) {
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    
# Line 51  elsif ($maxHits<$regCount) { Line 45  elsif ($maxHits<$regCount) {
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;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26