如何使用 AnyEvent::Twitter::Stream 在 perl 中打印 JSON 对象

Question

我正在使用 AnyEvent::Twitter::Stream 模块来获取推文。最终，我尝试将推文打印到文件中，但我无法（我认为）将推文作为 JSON 对象获取。我的代码如下：

#!/Applications/XAMPP/xamppfiles/bin/perl

use AnyEvent::Twitter::Stream;
    my $done = AnyEvent->condvar;

BEGIN {
    use Exporter;
    our @ISA = qw(Exporter);
    our @EXPORT = qw{
       &init
    };
}

sub print_tweet {
  my $tweet = shift;
  print $tweet;   
}


  # receive updates from @following_ids
  my $listener = AnyEvent::Twitter::Stream->new(
      username => XXXXXX
      password => XXXXXX
      method   => 'sample',  # "firehose" for everything, "sample" for sample timeline
      decode_json => 1,
      on_tweet => sub {
          my $tweet = shift;
          print_tweet($tweet);
      },
      on_keepalive => sub {
          warn "ping\n";
      },
      on_delete => sub {
          my ($tweet_id, $user_id) = @_; # callback executed when twitter send a delete notification
      },
      timeout => 45,
  );

$done->recv;

然而，当我在 print_tweet 子例程中打印出推文时，我得到的只是：

HASH(0x8f0ad0)HASH(0x8f0640)HASH(0x875990)HASH(0x8f0ab0)HASH(0x8e0d80)HASH(0x8f06e0)HASH(0x8f08f0)HASH(0x93ef30)HASH(0x876190)HASH(0x93ee60)HASH(0x8f0610)HASH(0x8f0b00)HASH(0x8e13e0)HASH(0x93ee20)HASH(0x8f0a20)HASH(0x8e1970)HASH(0x8f0900)

我什至尝试打印出推文，假设它是一个散列，如下所示：

sub print_tweet {
  my ($jsonref, $tweet) = @_;
  my $tweet = shift;
  print %tweet;
}

但这没有产生任何结果。看起来 AnyEvent::Twitter::Stream 根据以下示例代码将 $tweet 作为对象返回：

  on_tweet => sub {
      my $tweet = shift;
      warn "$tweet->{user}{screen_name}: $tweet->{text}\n";
  },

我知道我可以打印出单个对象，但是我可以获得原始 JSON 对象吗？我一定错过了一些东西，或者我的“菜鸟”性比我想象的要大...

更新

I was able to ALMOST get it by changing print_tweet to the following:

sub print_tweet {
  my $tweet = shift;
  my $json_output = to_json($tweet);
  print $json_output;
}

它打印出大部分 JSON 对象，但抱怨宽字符，我认为这是输出的问题是utf8格式吗？我不确定如何解决这个问题......

Answer 1

看起来它正在返回一个hashref。如果你不确定，你可以尝试做这样的事情。

use Data::Dumper;

...

print Dumper $tweet;

这应该让你了解正在传递的内容，然后你可以抓住你想要的东西 - 可能是这样的：

print "$tweet->{user}{screen_name}: $tweet->{text}\n";

Answer 2

在 print_tweet 中，您声明了 $tweet 两次。首先，将 @_ 数组的第二个元素分配给它，然后重新声明它并为其分配 @_ 的第一个元素，因为shift 默认在 @_ 上运行。

当然，如果您打开了use warnings，您就会看到

"my" variable $tweet masks earlier declaration in same scope 

这就是为什么您应该始终 use strict;在代码顶部使用警告；。

您看到的输出字符串是哈希引用，是打印 print_tweet 第一个参数中的内容（您最初分配给 $json_ref 的内容）的结果。如果您想打印 $tweet 的值，请删除使用 shift 破坏它的行。

Answer 3

想通了。需要使用JSON模块并进行编码。编码时必须使用{utf8 => 1} 选项来解释您从 Twitter 获取的 utf8 字符。最终代码在这里：

#!/Applications/XAMPP/xamppfiles/bin/perl

use JSON;
use utf8;
use AnyEvent::Twitter::Stream;
    my $done = AnyEvent->condvar;

BEGIN {
    use Exporter;
    our @ISA = qw(Exporter);
    our @EXPORT = qw{
       &init
    };
}

sub print_tweet {  
  my $tweet = shift;
  my $json_output = to_json($tweet, {utf8 => 1});
  print $json_output;
  print "\n";
}


  # receive updates from @following_ids
  my $listener = AnyEvent::Twitter::Stream->new(
      username => XXXXXXXX
      password => XXXXXXXX
      method   => 'sample',  # "firehose" for everything, "sample" for sample timeline
      on_tweet => sub {
          my $tweet = shift;
          print_tweet($tweet);
      },
      on_keepalive => sub {
          warn "ping\n";
      },
      on_delete => sub {
          my ($tweet_id, $user_id) = @_; # callback executed when twitter send a delete notification
      },
      timeout => 45,
  );

$done->recv;

感谢你们提供的帮助，DataDumper至少让我验证了格式，它只是没有产生最终结果。