perlでWMV形式のファイルをダウンロードしたいです

質問

perlでWMV形式のファイルをダウンロードしたいです
何かいいスプリクトを教えてください。
WMV形式のアドレスは、WinPcapで解析したものです、http://xxx.xxx.wmvを直接指定で、ダウンロードでき
るとうれしいです、お願いします。

回答No.1

urakids · ベストアンサー

ファイルのアドレスがわかっていて、
なおかつHTTPであるなら下のソースが使えると思いますよ。

############################################
#!/usr/bin/perl

use LWP::Simple;
my $wmv = get("http://xxx.xxx.wmv");
open(FILE ,">xxx.wmv") or die("Cant't Create");
eval{flock(FILE,2);};
print FILE $wmv;
close(FILE);
############################################

お礼

有難うございます、ファイルが1kバイトでした、GetASFStreamで、
同じアドレスしていでダウンロードできています。
use LWP::Simple;
のこと、調べてみます。
何かいいほうが有ったら、またよろしくお願いします。

補足

ダウンロードされたファイルを見たら
[Reference]
Ref1=http://xxx/xxx.wmv?MSWMExt=.asf
Ref2=http://xxx:80/xxx.wmv?MSWMExt=.asf
な、ファイルでした、これからどうすれば、本体がダウンロード
できますか、教えてください。