/[wait]/cvs-head/lib/WAIT/InvertedIndex.pm
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 /cvs-head/lib/WAIT/InvertedIndex.pm

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

revision 40 by laperla, Mon Nov 13 10:44:03 2000 UTC revision 71 by laperla, Sun Jan 27 15:27:38 2002 UTC
# Line 4  Line 4 
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Thu Aug  8 13:05:10 1996  # Created On      : Thu Aug  8 13:05:10 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Sun Nov 12 14:40:21 2000  # Last Modified On: Mon Dec 31 14:30:05 2001
8  # Language        : CPerl  # Language        : CPerl
9  #  #
10  # (C) Copyright 1996-2000, Ulrich Pfeifer  # (C) Copyright 1996-2000, Ulrich Pfeifer
# Line 31  $VERSION = "1.801"; # others test if we Line 31  $VERSION = "1.801"; # others test if we
31  #  #
32  #     The maximum term frequency of a document is the frequency of the  #     The maximum term frequency of a document is the frequency of the
33  #     most frequent term in the document.  It is related to the document  #     most frequent term in the document.  It is related to the document
34  #     length obviously.  A document in which the most frequnet term occurs  #     length obviously.  A document in which the most frequent term occurs
35  #     100 times is probably much longer than a document whichs most  #     100 times is probably much longer than a document whichs most
36  #     frequent term occurs five time.  #     frequent term occurs five time.
37  #  #
# Line 421  sub parse { Line 421  sub parse {
421    &{$self->{func}}(@_);    &{$self->{func}}(@_);
422  }  }
423    
 sub keys {  
   my $self  = shift;  
   
   defined $self->{db} or $self->open;  
   keys %{$self->{db}};  
 }  
   
424  sub search_prefix {  sub search_prefix {
425    my $self  = shift;    my $self  = shift;
426    
# Line 734  sub close { Line 727  sub close {
727    }    }
728  }  }
729    
730    sub keys {
731      my $self  = shift;
732    
733      defined $self->{db} or $self->open;
734      keys %{$self->{db}};
735    }
736    
737  1;  1;
738    
Legend:
Removed from v.40  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.26