Perl - скачивание флеш видео - PullRequest
Новая
       1

Perl - скачивание флеш видео

0 голосов
/ 29 июля 2011

Я пытаюсь загрузить видео по этой ссылке , используя скрипт Perl. Но проблема в том, что я не могу воспроизвести видео после загрузки. Вот мой сценарий 

my $ua = LWP::UserAgent->new;
open(FILE, '>Test.flv');
binmode (FILE); 

    my $resp = $ua->get( $url
                    ) or die;               

    if ( $resp->is_success) 
    {
        print FILE $resp->content;
        close(FILE);
    }
    else
    {
        print "Failed\n";
    }

Пожалуйста, дайте мне знать, что не так с кодом. Заранее спасибо.

1 Ответ

0 голосов
/ 29 июля 2011

Для меня это тоже не работает в Firefox, так что, я думаю, что-то не так с ссылкой. Ваша программа выглядит нормально для меня, хотя использование LWP :: Simple сделало бы ее немного более тривиальной.

...