/[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 1 by dpavlin, Tue Sep 7 08:33:53 2004 UTC revision 3 by dpavlin, Tue Sep 7 08:37:33 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 = 2;  my $min_len = 3;
11    
12    my $debug = 1;
13    
14  sub print_file {  sub print_file {
15          my $f = shift || return;          my $f = shift || return;
# Line 42  while(<STDIN>) { Line 44  while(<STDIN>) {
44    
45          # new part?          # new part?
46          if ($part ne $last_part) {          if ($part ne $last_part) {
47                    print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug);
48                  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);
49                  $total += $#part_arr;                  $total += $#part_arr;
50                  @part_arr = ();                  @part_arr = ();
Legend:
Removed from v.1  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26