Perl - 下载 Flash 视频

Question

我尝试从此下载视频链接 使用 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 会让事情变得更简单。