Perl - 下載Flash視頻

我試圖使用Perl腳本從此link下載視頻。但是下載後無法播放視頻的問題。這是我的腳本Perl - 下載Flash視頻

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"; 
    }

請讓我知道什麼是錯的代碼。提前致謝。

來源

2011-07-29 Allwyn

請不要使用舊式打開。用«打開我的$ fh'，'<：raw'，'Test.flv'替換前兩行將是非常可取的。 –

對我來說，這似乎並沒有在Firefox中工作，所以我想這有什麼問題的鏈接。你的程序對我來說看起來不錯，儘管使用LWP :: Simple會使事情變得更加微不足道。

來源

2011-07-29 10:31:47

當我嘗試粘貼時，鏈接正在被截斷。所以這裏是鏈接http://pastebin.com/MV7qFJq2 – Allwyn

這對我來說也不適用... –

Perl - 下載Flash視頻

回答

相關問題