Проблемы с защитой значения Hash от Net :: Twitter

Question

Я использую модуль Net :: Twitter из CPAN, но у меня небольшая проблема с ним.

Следующая подпрограмма ищет термин в Твиттере, но я не могу ничего получить но значение 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};