Perl - 下载flash视频

Question

我尝试使用Perl脚本从此link下载视频。但是下载后我无法播放视频的问题。这是我的剧本

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会让事情变得更加微不足道。