2011-02-16 53 views
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; 
} 
} 

回答

2

你回來的實際上是一個哈希引用,它可以用來獲取包含實際數據的散列。您可以通過use Data::Dumper; print Dumper($tweet);查看推文的完整結構和內容。

它已經過了一年多以來我上次寫微博相關的代碼,但我相信鳴叫的實際文本應在「文本」的關鍵,所以,要打印,使用

print $tweet->{text}; 
+0

感謝那!良好的記憶。 Data Dumper絕對值得記住。 – 2011-02-16 13:05:45