Почему архив Perl :: Tar исчерпал память?

Question

Я использую ниже код Perl для перечисления файлов в tar-архиве. Размер архива tar всегда составляет около 15 МБ.

my $file = shift; 
my $tar = Archive::Tar->new("$file"); 
my @lists = $tar->list_files; 
$tar->error unless @lists; 

Выполнение данного кода дает мне ошибку "Out of Memory". У меня около 512 МБ в моей системе Linux, и я не хочу увеличивать память моей системы. Может кто-нибудь, пожалуйста, предложите мне, если этот код может быть изменен для повышения производительности или другого кода для отображения файлов в tar-архиве.

Answer 1

Я пробовал это на большой дегте и получил ошибку. Вероятно, ошибка в libs. Следующие работал для меня:

@files = split/\n/, `tar tf $file` 

Answer 2

, если Perl не является обязательным, использовать деготь

$ tar tvf file.tar 

Answer 3

От Archive::TarFAQ:

Не Архив :: Tar медленно? Да, это так. Это чистый perl, поэтому он намного медленнее, чем ваш/bin/tar. Однако он очень портативен. Если скорость является проблемой, используйте вместо этого/bin/tar.

Не архив: Тар тяжелее памяти, чем/bin/tar? Да, см. Предыдущий ответ. Поскольку Compress :: Zlib и поэтому IO :: Zlib не поддерживает поиск в своих дескрипторах файлов, выбора нет, но читать архив в память. Это нормально, если вы хотите делать манипуляции с памятью в памяти.

Если вы просто хотите извлечь, используйте вместо этого метод класса extract_archive. Он автоматически оптимизирует и записывает на диск.

Другой вариант - использовать метод класса iter для перебора файлов в tarball без одновременного чтения их всех в памяти.

 

Так на основе выше, то это должно быть решение (непроверенные):

my $next = Archive::Tar->iter($file); 

while (my $f = $next->()) { 
    say $f->name; 
} 

/I3az/