entao galera continuando os tutoriais de perl nesse vamos falar do WWW::YouTube::Download que permite fazer download dos videos do youtube, esse modulo não vem por padrão deve ser baixado pelo cpan, para usar esse modulo basta a gente declarar ele
depois basta instanciar o nosso objeto para usar os metodos dele
o metodo mais simples desse modulo é o download onde passamos a url ou id do video que sera baixado no meu caso aqui vou baixar um video do satanael digo digo natanael
o video é baixado em boa qualidade
com o metodo get_video_url é retornado o link absoluto do video com esse link voce poderia baixar o video por outro programa ou ver direto pelo navegador ou ate pelo vlc por stream
um exemplo de como rodar o video direto no vlc por stream
podemos retornar o titulo do video com o metodo get_title
bom galera existem outros metodos dentro desse modulo porem apenas esses citados ja é o sufiente para baixar os videos la no youtube ^^
by kodo no kami
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
depois basta instanciar o nosso objeto para usar os metodos dele
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
my $kodo = new WWW::YouTube::Download;
o metodo mais simples desse modulo é o download onde passamos a url ou id do video que sera baixado no meu caso aqui vou baixar um video do satanael digo digo natanael
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
my $kodo = new WWW::YouTube::Download;
$kodo->download("https://www.youtube.com/watch?v=piSm1LgsYHQ");
o video é baixado em boa qualidade
com o metodo get_video_url é retornado o link absoluto do video com esse link voce poderia baixar o video por outro programa ou ver direto pelo navegador ou ate pelo vlc por stream
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
my $kodo = new WWW::YouTube::Download;
my $url = $kodo->get_video_url("https://www.youtube.com/watch?v=piSm1LgsYHQ");
print $url
um exemplo de como rodar o video direto no vlc por stream
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
my $kodo = new WWW::YouTube::Download;
my $url = $kodo->get_video_url("https://www.youtube.com/watch?v=piSm1LgsYHQ");
exec "vlc",$url;
podemos retornar o titulo do video com o metodo get_title
- Código:
#!/usr/bin/perl
use WWW::YouTube::Download;
my $kodo = new WWW::YouTube::Download;
my $titulo = $kodo->get_title("https://www.youtube.com/watch?v=piSm1LgsYHQ");
print $titulo . "\n";
bom galera existem outros metodos dentro desse modulo porem apenas esses citados ja é o sufiente para baixar os videos la no youtube ^^
by kodo no kami