求助：perl模块的调用方法

tiantianyuan

各位大虾好：
    由于学习要求，需要调用Lingua::NamedEntity
      初学Perl，求助好心人帮忙。

兰花仙子

原帖由 tiantianyuan 于 2006-5-15 20:31 发表
各位大虾好：
    由于学习要求，需要调用Lingua::NamedEntity
      初学Perl，求助好心人帮忙。

先安装这个模块，
perl -MCPAN -e shell
> install Lingua::NamedEntity

然后在脚本里：
use Lingua::NamedEntity;

然后再使用这个模块的相应方法（或函数）即可。
详细的用法也许你该参考下cpan上的文档。

tiantianyuan

我已经安装好了，作者在文档上只留下了这个
SYNOPSIS
      use Lingua::EN::NamedEntity;
      my @entities = extract_entities($some_text);
我的问题就是如何将其细化。

tiantianyuan

#/usr/bin/perl -w
use strict;
use Lingua::EN::NamedEntity;
open INPUT,"kelly" or die "cannot open file kelly\n";
my $str = join '\n',<INPUT>;
my @entities = extract_entities($str);
foreach my $entity (@entities)
{
        print "Entity: ",$entity->{entity},"\n";
        print "Class:  ",$entity->{class},"\n";
        while(my ($key,$val) = each(%{$entity->{scores}}))
{
        print "  ",$key,": ",$val,"\n";
}

        print "\n"
}