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

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

No.1 ベストアンサー 回答者： urakids 回答日時： 2010/04/24 14:52

ファイルのアドレスがわかっていて、

なおかつ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);
############################################

この回答への補足

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

補足日時：2010/05/03 19:15

この回答へのお礼

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

お礼日時：2010/05/03 13:11