DownVideos::DataSexta - Un módulo para obtener rutas a los capítulos de los programas de La Sexta
use DownVideos::DataSexta
my $sexta = DataSexta->new()
;
my $series = $sexta->get_series;
for my $p (@$series) { for my $k (keys $p) { print "$k\n"; } }
my $capitulos = $sexta->get_capitulos("$nombre_serie")
;
Un módulo para obtener rutas a los capítulos de los programas de La Sexta, que junto con DownVideos::SextaXML proporciona la URL de los archivos de video tanto de sus series, como de sus noticieros y programas.
new()
Crea el objeto. No requiere opciones.
get_series()
Obtiene un listado de las series y la URL a los capítulos. No requiere argumentos.
$series = [ { 'Serie foo' => '/videos/sfoo.html' }, { 'Serie bar' => '/videos/sbar.html' } ];
get_programas()
Obtiene un listado de los programas y la URL a los capítulos. No requiere argumentos.
$programas = [ { 'Programa foo' => '/videos/pfoo.html' }, { 'Programa bar' => '/videos/pbar.html' } ];
get_noticias()
Obtiene un listado de los noticieros y la URL a los capítulos. No requiere argumentos.
get_capitulos()
Obtiene un hash con información acerca de todos los capitulos del título (la clave de $series, $programas o $noticias) de la serie, el programa o el noticiero indicado en $nombre.
$capitulos = [ { 'URL' => 'http://www.lasexta.com/videos/seriefoo/temporada-2/capitulo-2.html', 'DESCRIPCION' => "Capítulo 2", 'TITULO' => "Serie foo - Capítulo 2 - Temporada 1", 'IMAGEN' => 'http://www.lasexta.com/clipping/2013/05/02/00047/10.jpg' }, { 'URL' => 'http://www.lasexta.com/videos/seriefoo/temporada-2/capitulo-1.html', 'DESCRIPCION' => "Capítulo 1", 'TITULO' => "Serie foo - Capítulo 1 - Temporada 1", 'IMAGEN' => 'http://www.lasexta.com/clipping/2013/04/25/00069/10.jpg' } ];
#!/usr/bin/perl
use warnings; use strict; use utf8; use encoding 'utf8'; use open 'locale'; use Encode; use DataSexta;
my $sexta = DataSexta->new(); my $noticias = $sexta->get_noticias; print "Obtenemos los programas de la sección noticias\n";
for my $p (0..@$noticias - 1) { for my $k (keys @$noticias[$p]) { print "Título $p: $k\n"; print "URL $p: " . @{$noticias}[$p]->{$k} . "\n\n"; } }
# Obtenemos los capítulos del noticiero "Deportes"; my $capitulos = $sexta->get_capitulos("Deportes");
print "Mostramos información de los 3 últimos capítulos\n";
for my $c (0..2) { for my $k (keys @$capitulos[$c]) { print "($c) $k:"; print " " . @{$capitulos}[$c]->{$k} . "\n"; } print "\n"; }
Hugo Morago Martín <morago@ono.com>
Copyright © 2013 Hugo Morago Martín <morago@ono.com>
Este programa se distribuye bajo los términos de la GPL v3 del 29 de enero de 2007. Puede encontrar una copia de la misma en http://www.gnu.org/licenses/gpl-3.0.html