Question

我正在使用Net :: Twitter访问我的推特消息。目前，direct_message（）返回消息数组。我发现它实际上是一个数组（基于帐户然后每个单独的消息）。

我想知道是否有人知道从结果中打印消息ID的更好方法？我只想到它是一个数组的数组，因为$ msgs [0] [0] {'id'}会打印出消息ID。当我做数据转储器时，它看起来更像是一个哈希数组。

foreach my $msg (@{$msgs[0]})
{
    print $msg->{'id'} . "\n";
}

数据::转储结果

$VAR1 = [
      {
        'sender_screen_name' => 'text',
        'recipient' => {
                         'friends_count' => 'text',
                         'follow_request_sent' => 'text',
                         'profile_background_image_url_https' => 'text',
                         'profile_sidebar_fill_color' => 'text',
                         'profile_image_url' => 'text',
                         'profile_background_color' => 'text',
                         'notifications' => 'text',
                         'url' => 'text',
                         'id' => 'text',
                         'is_translator' => 'text',
                         'following' => 'text',
                         'screen_name' => 'text',
                         'lang' => 'text',
                         'location' => 'text',
                         'followers_count' => 'text',
                         'statuses_count' => 'text',
                         'name' => 'text',
                         'description' => 'text',
                         'favourites_count' => 'text',
                         'profile_background_tile' => 'text',
                         'listed_count' => 'text',
                         'contributors_enabled' => 'text',
                         'profile_link_color' => 'text',
                         'profile_image_url_https' => 'text',
                         'profile_sidebar_border_color' => 'text',
                         'created_at' => 'text',
                         'utc_offset' => 'text',
                         'verified' => 'text',
                         'show_all_inline_media' => 'text',
                         'profile_background_image_url' => 'text',
                         'protected' => 'text',
                         'default_profile' => 'text',
                         'id_str' => 'text',
                         'profile_text_color' => 'text',
                         'default_profile_image' => 'text',
                         'time_zone' => 'text',
                         'profile_use_background_image' => 'text',
                         'geo_enabled' => 'text',
                       },
        'id_str' => 'text',
        'sender_id' => 'text',
        'created_at' => 'text',
        'text' => 'text',
        'sender' => {
                      'friends_count' => 'text',
                      'follow_request_sent' => 'text',
                      'profile_background_image_url_https' => 'text',
                      'profile_sidebar_fill_color' => 'text',
                      'profile_image_url' => 'text',
                      'profile_background_color' => 'text',
                      'notifications' => 'text',
                      'url' => 'text',
                      'id' => 'text',
                      'is_translator' => 'text',
                      'following' => 'text',
                      'screen_name' => 'text',
                      'lang' => 'text',
                      'location' => 'text',
                      'followers_count' => 'text',
                      'statuses_count' => 'text',
                      'name' => 'text',
                      'description' => 'text',
                      'favourites_count' => 'text',
                      'profile_background_tile' => 'text',
                      'listed_count' => 'text',
                      'contributors_enabled' => 'text',
                      'profile_banner_url' => 'text',
                      'profile_link_color' => 'text',
                      'profile_image_url_https' => 'text',
                      'profile_sidebar_border_color' => 'text',
                      'created_at' => 'text',
                      'utc_offset' => 'text',
                      'verified' => 'text',
                      'show_all_inline_media' => 'text',
                      'profile_background_image_url' => 'text',
                      'protected' => 'text',
                      'default_profile' => 'text',
                      'id_str' => 'text',
                      'profile_text_color' => 'text',
                      'default_profile_image' => 'text',
                      'time_zone' => 'text',
                      'profile_use_background_image' => 'text',
                      'geo_enabled' => 'text',
                    },
        'recipient_screen_name' => 'text',
        'id' => 'text',
        'recipient_id' => 'text',
      }
    ];

Answer 1

我看了Net::Twitter，它本质上是非常骨骼的。它会引导您回到API，并且几乎让您失望 - 主要是因为API不断变化，这使得很难生成稳定的模块。大多数模块都试图清理对引用数组哈希引用数组 mess的引用的引用，但是这个引用没有。

看起来您必须使用Data::Dumper来查看返回的数据结构，并以最佳方式解析它。

在这种情况下，您可以使用ref命令来确切地验证您正在查看的内容（如果它在您期望引用数组时返回对哈希的引用，您知道可能会遇到麻烦）。您还可以查看Net::Twitter::Lite，这可能会为基本对象处理提供更多支持。

Perl打印阵列的哈希？

1 个答案: