como baixar vídeos do youtube sem qualquer software ou extensão?

Question

Estou tentando baixar o vídeo do youtube e encontro vários softwares e extensões que podem fazer o trabalho, mas fiquei imaginando se é possível baixar o vídeo do youtube sem qualquer software e extensão enquanto transmite o vídeo usando o navegador da web. Estou usando o Ubuntu 14.04 LTS, agradeço antecipadamente.

    

Answer 1

Para baixar vídeos do youtube sem extensões de software é possível, visto que estamos usando o Ubuntu e assim temos perl pré-instalado e o grande wget à nossa disposição. Há um script em Perl no site da Calomel que eu uso para essa finalidade, que extrai o caminho do arquivo de vídeo e passa esse caminho como um parâmetro para wget . Se você não tem o wget instalado (duvido que você não tenha), você pode instalá-lo a partir dos repositórios. Como está descrito no site, basta iniciar o script com o URL do site em que o vídeo está. Estou ciente de que algumas pessoas não gostam do terminal (o que é triste), então eu escrevi um pequeno script perl para você. Mas é dependente da biblioteca perl Tk, então se você quiser usá-lo, você terá para instalar perl-tk

#!/usr/bin/perl -w
#Script to collect input for calomels perl script to download youtube videos
use Tk;
my @LIST = ();
if (@ARGV) {
    @LIST = @ARGV;
    &downloadList();
    &endProg();
}
my $UserInput = undef;
my $infoText = 'This Script is dependant of wget and Tk';
our $testBlub = 0;

our $mw = MainWindow->new(-title => 'Youtube Downloader Beta');
$mw -> geometry("350x300");
$mw->Label(-text =>'Insert Youtube Link with Copy&Paste')->pack;
my $message = $mw->Entry(-width  => 50,-textvariable => \$UserInput);
$message->pack(-side=>'top');
my $Button1 = $mw->Button(-text => 'Add entry to list',-command => \&addList)->pack;
my $Button2 = $mw->Button(-text => 'Start Downloading',-command => \&downloadList)->pack;
my $exitButton = $mw->Button(-text => 'Exit',-command => \&endProg)->pack;
my $infoBoard = $mw->Label(-text => $infoText) ->pack;
our $ListBoard = $mw->Label(-text => $testBlub )->pack;
$mw ->update;


MainLoop;

sub addList {
    push(@LIST,$UserInput . "\n");
    $testBlub = $testBlub . $UserInput . "\n";
    $ListBoard -> configure(-text => $testBlub);
    $mw -> update;
}

sub downloadList {
    print "Event Download catched!\n";
    for my $test (@LIST) {
        print $test;
    }
    for my $Item (@LIST) {
        './youtube_wget.pl $Item';
        print "$Item is done\n";
    }
    @LIST = ();
}

sub endProg {
    exit(0);
}

Você pode então criar um iniciador para o qual possa clicar para iniciar o script. Bem, de qualquer forma, espero que isso ajude a resolver o seu problema. Ultima coisa que eu gostaria de dizer, o código acima não é a solução mais elegante, ele apenas faz o que deveria.