TMDB 사용하는 방법 - 나는 TMDB 사용하도록 노력하고있어 MovieDB의 API

Question

펄 래퍼를 - 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 }; 

를 얻을 수는

$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 
    }; 

을 제공

print Dumper $movie->cast; 

말한다 6,

내가

당신은 거의 다

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