Perl - フラッシュビデオをダウンロード

Question

私はこのlinkから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"; 
    } 

私はコードに何が間違っているか教えてください。前もって感謝します。

Answer 1

私にとっては、これはFirefoxでもうまくいないようですので、リンクに問題があると思います。あなたのプログラムは私にはうまく見えますが、LWP :: Simpleを使うと少し面白くなります。