Question

我正在使用CPAN的Net :: Twitter模块，但我遇到了一个小问题。

以下子程序在Twitter上搜索一个术语但我似乎无法得到任何东西但是HASH值（即％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; 
 }
}

Answer 1

你得到的实际上是一个哈希引用，可以用来获取包含实际数据的哈希值。您可以use Data::Dumper; print Dumper($tweet);查看推文的完整结构和内容。

自从我上次写Twitter相关代码已经过去一年左右，但我相信推文的实际文本应该在“文本”键中，因此，要打印它，请使用

print $tweet->{text};

从Net :: Twitter引用哈希值的问题

1 个答案: