/ 
downsexta-0.2-2
River stage zero No dependents
/ DataSexta

NOMBRE

DownVideos::DataSexta - Un módulo para obtener rutas a los capítulos de los programas de La Sexta

SINOPSIS

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");

DESCRIPCIÓN

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.

MÉTODOS

CONSTRUCTOR

new()
$sexta = DataSexta->new();

    Crea el objeto. No requiere opciones.

  • $sexta (Objeto DataSexta=HASH)

ACCESORES

get_series()
$series = $sexta->get_series();

    Obtiene un listado de las series y la URL a los capítulos. No requiere argumentos.

  • $series (Array de hashes)

    $series = [ { 'Serie foo' => '/videos/sfoo.html' }, { 'Serie bar' => '/videos/sbar.html' } ];

get_programas()
$programas = $sexta->get_series();

    Obtiene un listado de los programas y la URL a los capítulos. No requiere argumentos.

  • $programas (Array de hashes)

    $programas = [ { 'Programa foo' => '/videos/pfoo.html' }, { 'Programa bar' => '/videos/pbar.html' } ];

get_noticias()
$noticias = $sexta->get_noticias();

    Obtiene un listado de los noticieros y la URL a los capítulos. No requiere argumentos.

  • $noticias (Array de hashes)

get_capitulos()
$capitulos = $sexta->get_capitulos($nombre);

    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.

  • $nombre (Cadena de texto)

  • $capitulos (Array de hashes)

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

EJEMPLO

Ejemplo de obtención de información sobre tres capítulos del noticiero Deportes:
#!/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";
   }

AUTOR

Hugo Morago Martín <morago@ono.com>

LICENCIA

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