Question

我正在努力完成课程的家庭作业。使用CPAN安装API::Twitter模块后，Net::Twitter模块似乎受到影响，无法再使用。

我尝试在Mac终端中运行此代码：

song_hanlun_hw8.pl

#!/usr/bin/perl

use Net::Twitter;
use JSON;
use LWP::Simple;
use XML::Bare;
use Data::Dumper;

# keys for twitter
$consumer_key    = "key";
$consumer_secret = "key";
$token           = "key-key";
$token_secret    = "key";

# keys for sentiment analysis
$apikey = "key";

# As of 13-Aug-2010, Twitter requires OAuth for authenticated requests
my $nt = Net::Twitter->new(
    traits => [qw/API::RESTv1_1/],

    # traits              => [qw/API::Search/],
    consumer_key        => $consumer_key,
    consumer_secret     => $consumer_secret,
    access_token        => $token,
    access_token_secret => $token_secret,
);

#enter a term you want to search for
$search_term = "Halloween";
$count       = 100;

my $r = $nt->search( { q => $search_term, count => $count } );

# print Dumper $r;
for my $status ( @{ $r->{statuses} } ) {
    push @tweets, $status->{text};
}

$nextMaxId = $r->{search_metadata}->{next_results};
$nextMaxId =~ s/\?max_id=//g;
$nextMaxId =~ s/&q=Halloween&count=100&include_entities=1//g;

# print $nextMaxId;

my $r2 = $nt->search( { q => $search_term, count => $count, max_id => $nextMaxId } );
for my $status ( @{ $r2->{statuses} } ) {
    push @tweets, $status->{text};
}

foreach $tweet ( @tweets ) {

    # $tweet = $tweets[1];
    $return    = get "http://gateway-a.watsonplatform.net/calls/text/TextGetTextSentiment?apikey=$apikey&text=$tweet&outputMode=xml";
    $bare      = new XML::Bare( text => $return );
    $root      = $bare->parse();
    $sentiment = $root->{results}->{docSentiment}->{score}->{value};
    push @sentiments, $sentiment;

    # print "$sentiment";
}

$m100to75 = 0;
$m75to50  = 0;
$m50to25  = 0;
$m25to0   = 0;
$p0to25   = 0;
$p25to50  = 0;
$p50to75  = 0;
$p75to100 = 0;

foreach $sent ( @sentiments ) {

    # smaller than zero. four ranges.
    if ( $sent >= -1 && $sent < -0.75 ) {
        $m100to75++;
    }

    if ( $sent >= -0.75 && $sent < -0.5 ) {
        $m75to50++;
    }

    if ( $sent >= -0.5 && $sent < -0.25 ) {
        $m50to25++;
    }

    if ( $sent >= -0.25 && $sent < 0 ) {
        $m25to0++;
    }

    #bigger than zero. four ranges.
    if ( $sent >= 0 && $sent < 0.25 ) {
        $p0to25++;
    }

    if ( $sent >= 0.25 && $sent < 0.5 ) {
        $p25to50++;
    }

    if ( $sent >= 0.5 && $sent < 0.75 ) {
        $p50to75++;
    }

    if ( $sent >= 0.75 && $sent < 1 ) {
        $p75to100++;
    }

}

# print "$m100to75\n$m75to50\n$m50to25\n$m25to0\n$p0to25\n$p25to50\n$p50to75\n$p75to100\n";

print "tweets sentiment score summary histogram:\n";

print "-1.00 to -0.75: ";
for ( $i = 0 ; $i < $m100to75 ; $i++ ) {
    print "*";
}
print "\n";

print "-0.75 to -0.50: ";
for ( $i = 0 ; $i < $m75to50 ; $i++ ) {
    print "*";
}
print "\n";

print "-0.50 to -0.25: ";
for ( $i = 0 ; $i < $m50to25 ; $i++ ) {
    print "*";
}
print "\n";

print "-0.25 to -0.00: ";
for ( $i = 0 ; $i < $m25to0 ; $i++ ) {
    print "*";
}
print "\n";

print "+0.00 to +0.25: ";
for ( $i = 0 ; $i < $p0to25 ; $i++ ) {
    print "*";
}
print "\n";

print "+0.25 to +0.50: ";
for ( $i = 0 ; $i < $p25to50 ; $i++ ) {
    print "*";
}
print "\n";

print "+0.50 to +0.75: ";
for ( $i = 0 ; $i < $p50to75 ; $i++ ) {
    print "*";
}
print "\n";

print "+0.75 to +1.00: ";
for ( $i = 0 ; $i < $p75to100 ; $i++ ) {
    print "*";
}
print "\n";

但终端返回

Invalid version format (version required) at /Library/Perl/5.18/Module/Runtime.pm line 386.
BEGIN failed--compilation aborted at /Library/Perl/5.18/Net/Twitter.pm line 3.
Compilation failed in require at song_hanlun_hw8.pl line 3.
BEGIN failed--compilation aborted at song_hanlun_hw8.pl line 3.

有人可以告诉我如何解决这个问题吗？

Answer 1

经过一些谷歌搜索后，我非常相信降级Module :: Runtime会解决这个问题。但我找不到。

最终我通过删除perl文件夹中的Runtime模块文件解决了这个问题，并重新安装了Net :: Twitter模块，它还重新安装了Net :: Twitter所依赖的运行时。

Perl无效的版本格式错误

song_hanlun_hw8.pl

1 个答案: