如何使用 TMDB - The MovieDB API 的 Perl 包装器答案

【问题标题】：how to use TMDB - Perl wrapper for The MovieDB API如何使用 TMDB - The MovieDB API 的 Perl 包装器
【发布时间】：2013-07-12 16:57:13
【问题描述】：

我正在尝试使用 TMDB - The MovieDB API http://metacpan.org/pod/TMDB 的 Perl 包装器，但我被卡住了

我不知道如何提取组件。

例如给定

  #!/usr/bin/perl   
  use TMDB;
  use Data::Dumper qw(Dumper); 
  use CGI;
  use JSON;

  my $cgi = CGI->new();
  my $tmd= $cgi->param('tmd');

  # Initialize
  $tmd = "60304";
  my $tmdb = TMDB->new( apikey => 'XXXXXXXXXXX' );

  # HTTP HEADER

  print "Content-type:text/html\n\n"; 

  # Movie Data
  # ===========
    my $movie = $tmdb->movie( id =>  $tmd );


  my @cast = $movie->cast;
  foreach my $actor (@cast)
    {  
     print "<p>name " . Dumper($actor) . "</p>"; 

    }

我明白了

name $VAR1 = { 'cast_id' => 2, 'order' => 0, 'character' => 'Gretel', 'name' => 'Gemma Arterton', 'profile_path' => '/vOzCQfZOSYLdGjvyD7XDvCzXN4s.jpg', 'id' => 59620 };

从它说的 cpan 页面

print Dumper $movie->cast;

给了

$VAR1 = {
      'cast_id' => 2,
      'order' => 0,
      'character' => 'Gretel',
      'name' => 'Gemma Arterton',
      'profile_path' => '/vOzCQfZOSYLdGjvyD7XDvCzXN4s.jpg',
      'id' => 59620
    };
$VAR2 = {
      'cast_id' => 3,
      'order' => 1,
      'character' => 'Hansel',
      'name' => 'Jeremy Renner',
      'profile_path' => '/l6CxIOFCjF65298teEJd5mCnPDO.jpg',
      'id' => 17604
    };

为每个演员重复

我如何将其转换为类似的东西

my $name = 'Gemma Arterton';
my $id = '59620';

【问题讨论】：

标签： perl themoviedb-api

【解决方案1】：

你快到了

foreach my $actor (@cast) {
    $name = $actor->{name};
    $id = $actor->{id};
    ...

    print "<p>name $name</p>";
    print "<p>id $id</p>";
    ...
}

【讨论】：

谢谢@mob，当你知道怎么做的时候很容易！我为此苦苦挣扎的 3 个晚上