Assistance de TMDB

Hi

I need some newbee advise on how to extract the elements from movie->info using the perl moduel {WWW-TMDB-API }{https://www.themoviedb.org/talk#precode}

I'm not so hot on my Object Orientated perl!

for instance this fails with an error

 my $img = $movie->poster_path;

but

my $movie_title = $movie->title; works?

this produces a hash when printed

my @movie_images= $movie->images;

this gives a list of actors but no person id

  my @movie_actors    = $movie->actors;

Has any one got a good example of how to do this other then the CPAN page?

here is my script so far

   #!C:/Perl64/bin/perl.exe
  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 => 'xxxxxxxxxx' );

# HTTP HEADER

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

# Movie Data
# ===========
#  
# Movie Object
#  $result = $tmdb->movie->info( ID => $tmd );
#  print Dumper $result;
  my $movie = $tmdb->movie( id =>  $tmd );
# # # Movie Data (as returned by the API)
# # 
print Dumper $movie->info;  
# # # Movie details
my $movie_title     = $movie->title;
my $MIDB =  $movie->imdb_id;
my $movie_year      = $movie->year;
my $movie_tagline   = $movie->tagline;
my $movie_overview  = $movie->overview;
my @movie_directors = $movie->director;
my @movie_actors    = $movie->actors;
my @movie_images= $movie->images;

print Dumper $movie->images;   

these fail

#    my $img = $movie->poster_path;
#    $img =   "http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w185" . $img;
#    my $poster_path = qq(<img src='$img'>);
#    my $img =   "http://d3gtl9l2a4fn1j.cloudfront.net/t/p/w300" . $movie->backdrop_path;
#    my $backdrop_path = qq(<img src='$img'>);

2 réponses (sur la page 1 sur 1)

Jump to last post

I'm currently rewriting my API version 2 module, only have about 5 functions to go: http://search.cpan.org/~pjobson/WWW-TheMovieDB-Search/lib/WWW/TheMovieDB/Search.pm

I plan on being finished next week and publishing to CPAN shortly there after.

The last update on the other module was December of 2008, it is definitely using version 2 of the API. http://search.cpan.org/~behanw/TVDB-API-0.33/

For http requests you might want to try LWP::Simple, much less annoying than doing CGI requests.

Feel free to contact me directly, my email is in that perl module.

What about the TMDB module? Or is that the one that is Ning23 is using? It was updated recently.

I'm not familiar with Perl at all, just know some libs exist for it :D

Un film, une émission télévisée ou un artiste est introuvable ? Connectez-vous afin de créer une nouvelle fiche.

Général

s Mettre le curseur dans la barre de recherche
p Ouvrir le menu du profil
esc Fermer une fenêtre ouverte
? Ouvrir la fenêtre des raccourcis clavier

Sur les pages des médias

b Retour (ou vers le parent si faisable)
e Afficher la page de modification

Sur les pages des saisons des émissions télévisées

Afficher la saison suivante (flèche droite)
Afficher la saison précédente (flèche gauche)

Sur les pages des épisodes des émissions télévisées

Afficher l'épisode suivant (flèche droite)
Afficher l'épisode précédent (flèche gauche)

Sur toutes les pages des images / photos

a Ouvrir la fenêtre d'ajout d'image / photo

Sur toutes les pages de modifications

t Ouvrir le sélecteur de traduction
ctrl+ s Envoyer le formulaire

Sur les pages des discussions

n Créer une nouvelle discussion
w Basculer le statut de suivi
p Basculer publique / privée
c Basculer fermer / ouvrir
a Ouvrir l'activité
r Répondre à la discussion
l Afficher la dernière réponse
ctrl+ enter Envoyer votre message
Page suivante (flèche droite)
Page précédente (flèche gauche)

Paramètres

Vous souhaitez évaluer ou ajouter cet élément à une liste ?

Connexion