如何使用TMDB - Perl的包裝爲MovieDB API

Question

我試圖使用TMDB - Perl的包裝爲MovieDB API http://metacpan.org/pod/TMDB，我被卡住

我不能工作了如何提取成分。

例如給出

#!/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>"; 

    } 

我從CPAN頁面得到這個

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

它說

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>"; 
    ... 
}