/[bfilter]/trunk/bfilter.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bfilter.pl

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

revision 3 by dpavlin, Tue Sep 7 08:37:33 2004 UTC revision 4 by dpavlin, Tue Sep 7 09:16:06 2004 UTC
# Line 7  use locale; Line 7  use locale;
7  # maximum entries  # maximum entries
8  my $max = 0;  my $max = 0;
9  # minimum letters to search by  # minimum letters to search by
10  my $min_len = 3;  my $min_len = 2;
11    # if more than x elements, warn to increase min_len
12    my $increase_at = 500;
13    
14  my $debug = 1;  my $debug = 1;
15    
# Line 28  my @part_arr; Line 30  my @part_arr;
30  my $last_part = '';  my $last_part = '';
31  my $total = 0;  my $total = 0;
32    
33    my $max_elements = 0;
34    
35  while(<STDIN>) {  while(<STDIN>) {
36          chomp;          chomp;
37    
# Line 45  while(<STDIN>) { Line 49  while(<STDIN>) {
49          # new part?          # new part?
50          if ($part ne $last_part) {          if ($part ne $last_part) {
51                  print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug);                  print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug);
52                    $max_elements = $#part_arr if ($#part_arr > $max_elements);
53                  print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);                  print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);
54                  $total += $#part_arr;                  $total += $#part_arr;
55                  @part_arr = ();                  @part_arr = ();
# Line 59  while(<STDIN>) { Line 64  while(<STDIN>) {
64  print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);  print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);
65  print "var min_len = $min_len;\n";  print "var min_len = $min_len;\n";
66  print "// index elements: $total\n";  print "// index elements: $total\n";
67    
68    print STDERR "You have more than $increase_at elements in one array,\nyou whould probably increase min_len to ",$min_len+1," or higher.\n" if ($max_elements > $increase_at);
Legend:
Removed from v.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26