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

Question

我试图为MovieDB API http://metacpan.org/pod/TMDB使用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';

Answer 1

你就快到了

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

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