1
我使用CPAN的Net :: Twitter模塊,但是我遇到了一個小問題。Net :: Hash值的問題:: Twitter
用於在Twitter上,但我的一個術語下面的子例程搜索似乎無法得到任何東西 但散列值(即%HASH(0x9096dc0))
我如何去獲得鳴叫的只是內容?
sub twit_search
{
my $term = shift @_;
my $page = 1;
my @results;
while (scalar @results < $opts{maxresults})
{
my $rset = $handle->search({query=>$term, page => $page, rpp => $opts{rpp} });
print "Searching for $term (page $page)\n" if $opts{verbose};
if (ref $rset eq 'HASH' && exists $rset->{results})
{
last unless @{$rset->{results}};
push @results, @{$rset->{results}};
printf "Now we have %d entries\n", scalar @results if $opts{verbose};
}
$page++;
}
foreach my $tweet (@results)
{
print $tweet;
}
}
感謝那!良好的記憶。 Data Dumper絕對值得記住。 – 2011-02-16 13:05:45