Как скачать файл .gz с помощью Perl

Question

Я хочу скачивать файлы с расширением .gz, используя Perl. Я написал следующий код:

#!/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?

Спасибо;

Answer 1

#!/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);

Если вы хотите, чтобы скрипт perl разархивировал файл, вы можете использовать system () для запуска gunzip или выполнить поиск CPAN для поиска подходящего модуля perl.

если вам не нравится вводить 'igrow.out.gz дважды (с возможностью забыть изменить одно из имен файлов), замените $file = ... на что-то вроде

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

Answer 2

Использовать Файл :: Выборка .