如何使用Perl下载.gz文件

我想使用Perl下载扩展名为.gz的文件。我编写了以下代码：

#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $url = 'http://www.ebi.ac.uk/thornton-srv/databases/pdbsum/2kri/igrow.out.gz';
my $file = 'prot-prot.txt';

getstore($url, $file);

但我已经意识到，这段代码只适用于文本文件，而不适用于压缩文件。你知道为了下载.gz文件我应该如何修改这段代码吗

---

谢谢,

使用。

“我意识到这段代码只适用于文本文件而不适用于压缩文件”-你错了，它适用于二进制文件。这就是我想要的。谢谢，下载后请查看以提取文件。此外，您还可以查看我正在开发（尚未发布）的Alien:：GSL模块，我做了一些非常类似的事情。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://www.ebi.ac.uk/thornton-srv/databases/pdbsum/2kri/igrow.out.gz'; my $file = 'igrow.out.gz'; getstore($url, $file);

 (my $file = $url) =~ s!^.*/!!;