Указанная папка для извлечения с помощью Archive::Rar в perl

Я хочу извлечь архив .rar в Perl по указанному пути. я пробовал это:

my $archive= 'text.rar';
my $directory = 'photos';
my $rar = Archive::Rar->new( -archive => $archive );
$rar->Extract(-to => $directory);

но это не сработало, он всегда извлекает его в мою корневую папку...

есть ли какая-нибудь команда, чтобы указать Archive::Rar другой каталог?

Заранее спасибо!


person user1920176    schedule 23.12.2012    source источник
comment
Кажется, нет такого документированного варианта. Вы всегда можете попробовать просто chdir $directory перед извлечением. Это не совсем красиво, но должно работать.   -  person TLP    schedule 23.12.2012


Ответы (1)


Как оказалось, существует не-задокументированная опция:

my $rar = Archive::Rar->new( -archive => $archive, -initial => $directory);
$rar->Extract();

сделает именно это.

person Jurgen Pletinckx    schedule 26.12.2012