Сообщество Чайников

Вопрос

Можно ли из Perl скрипта каким-то образом вызвать Tar и извлечь из архива файл?

Ответ

#!/usr/bin/perl
use Archive::Tar;
my $tar = Archive::Tar->new();
$tar->add_files("file1", "file2", "file3");#Список файлов
$tar->write('files.tar');

#!/usr/bin/perl
my ($tar, @files);
$tar = Archive::Tar->new();
$tar->read('files.tar');
@files=$tar->list_files();
$tar->extract(@files);

Green Kakadu