Supporto The Movie Database

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 risposte (nella pagina 1 di 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

Non riesci a trovare un film o una serie Tv? Accedi per crearlo.

Globale

s focalizza la barra di ricerca
p apri menu profilo
esc chiudi una finestra aperta
? apri finestra scorciatoia tastiera

Su tutte le pagine di media

b torna indietro (o al precedente quando applicabile)
e vai alla pagina di modifica

Nelle pagine delle stagioni TV

(freccia destra) vai alla stagione successiva
(freccia sinistra) vai alla stagione precedente

Nelle pagine degli episodi TV

(freccia destra) vai all'episodio successivo
(freccia sinistra) vai all'episodio precedente

Su tutte le pagine di immagini

a apri finestra aggiungi immagine

Su tutte le pagine di modifica

t apri selettore traduzione
ctrl+ s invia modulo

Sulle pagine di discussione

n crea nuova discussione
w segna come visto/non visto
p cambia publico/privato
c cambia chiuso/aperto
a apri attivita
r rispondi alla discussione
l vai all'ultima risposta
ctrl+ enter invia il tuo messaggio
(freccia destra) pagina successiva
(freccia sinistra) pagina precedente

Impostazioni

Vuoi valutare o aggiungere quest'elemento a una lista?

Accedi