Perl，解析链接下载名。

Question

我试图用Perl编写一个脚本，它可以从网页生成URL列表，而不是遍历URL列表并下载链接的文件。

问题是生成的URL链接看起来类似于

www.example.com/download.php?file=Li9OaW50ZW5kby9ORVMvVVNBLzEwIFlhcmQgRmlnaHQuemlw

当我在浏览器中放置这个链接时，它知道真正的文件名(即cards.zip)，我不知道如何使用Perl实现它。

如何使用Perl (链接的“真”文件名)？

Answer 1

检查标头，特别是Content-Disposition。

Answer 2

Amadan说得对，只是展示了我用来解决这个问题的代码：

use LWP::UserAgent qw( );
use LWP::Simple;
$url  = 'http://www.example.com/download.php?file=Li9OaW50ZW5kby9ORVMvVVNBLzNEIEJhdHRsZXMgb2YgV29ybGQgUnVubmVyLnppcA==';

#get file name
my $ua = LWP::UserAgent->new();
$cnt = %{%{$ua->head( $url )}->{'_headers'}}->{'content-disposition'};
$cnt =~ m/filename=(.*)/;
print "File name is: $1\n";

#Save File
my $status = getstore($url, $1);

if ( is_success($status) ){
    print "File $1 Saved Correctly !\n";
}else{
    print "Error saving $1!\n";
}