RePrec::Searchresult::HySpirit - Parse HySpirit search results

RePrec documentation Contained in the RePrec distribution.

Index

Code Index:

NAME

Top

RePrec::Searchresult::HySpirit - Parse HySpirit search results

SYNOPSIS

Top

See RePrec::Searchresult(3);

DESCRIPTION

Top

See RePrec::Searchresult(3);

BUGS

Top

Yes. Please let me know!

SEE ALSO

Top

RePrec::Searchresult(3), RePrec(3), perl(1).

AUTHOR

Top

Norbert Goevert <goevert@ls6.cs.uni-dortmund.de>

RePrec documentation Contained in the RePrec distribution. 
######################### -*- Mode: Perl -*- #########################
##
## File          : HySpirit.pm
##
## Author        : Norbert Goevert
## Created On    : Mon Nov  9 16:54:39 1998
## Last Modified : Time-stamp: <2000-11-10 10:14:45 goevert>
##
## Description   : 
##
## $Id: HySpirit.pm,v 1.27 2003/06/13 12:29:30 goevert Exp $
##
######################################################################


use strict;


## ###################################################################
## package RePrec::Searchresult::HySpirit
## ###################################################################

package RePrec::Searchresult::HySpirit;


use base qw(RePrec::Searchresult);

use Carp;


our $VERSION;
'$Name: release_0_32 $ 0_0' =~ /(\d+)[-_](\d+)/; $VERSION = sprintf '%d.%03d', $1, $2;


## public ############################################################


## private ###########################################################

sub _init {

  my $self = shift;
  my $file = shift;

  my $fh = IO::File->new($file)
    or croak "Couldn't read open file `$file': $!\n";

  my(@results, $rsv, $dok);
  while (<$fh>) {
    next unless ($rsv, $dok) = /^(\d\.\d+)\(d(\d+)[\),]/;
    push @results, [$rsv, $dok];
  }

  $self->{results} = [ sort { $b->[0] <=> $a->[0] } @results ];
}


1;
__END__
## ###################################################################
## pod
## ###################################################################