Я пытаюсь создать скрипт загрузчика youtube с помощью perl, заполнив форму сайта загрузчика youtube с помощью ссылки youtube, отправьте ее и примите файл для загрузки.Заполнение форм div с помощью perl
Я пробовал много разных кодов, но я не мог заполнить форму, я думаю, это потому, что форма находится в < div> тегах.
как я могу это сделать?
спасибо.
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use WWW::Mechanize;
my $url = 'http://www.youtube-mp3.org';
my $m = WWW::Mechanize->new();
my $textbox = 'youtube-url';
my $youtubelink = "http\:\/\/www.youtube.com\/watch\?v\=lDK9QqIzhwk";
my $cgi = CGI->new();
my $form = $cgi->Vars;
$m->get($url);
$m -> form_number ('1');
$m -> field($youtubelink, $form->{$textbox});
$m -> submit();
$m->submit();
print $m -> content();
$m->follow_link(text_regex => qr/Download/i);
my $response = $m->res();
my $filename = $response->filename;
if (! open (FOUT, ">$filename")) {
die("Could not create file: $!");
}
print(FOUT $m->response->content());
close(FOUT);
Вы можете попробовать этот скрипт: https://calomel.org/youtube_wget.html –