Help for this page

Select Code to Download


  1. or download this
     use Search::VectorSpace;
            
    ...
            while ( my $query = <> ) {
                    my %results = $engine->search( $query );
                    print join "\n", keys %results;
    
  2. or download this
      $dr="C:\\Users\\Desktop\\collection2";
        opendir(DR, "$dr") || die "error" ;
        @docs=<DR>;
        @docs=readdir DR;