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视频

回答

相关问题