Как я могу позвонить WinRar в Perl на окнах

Question

Можно ли назвать WinRar через Perl в системе окон, таких как

Perl -e «ЭОР -rr10 -sc: \ подпорки \ backup.rar @backup .lst "

Если да, то есть ли более эффективный способ сделать это?

Я искал «perl -e» + winrar в Google, однако ни один из результатов не дал мне ответа, который был удаленно близок к тому, что я искал. Система Im, на которой работает эта система, - это система Windows XP. Я готов сделать это на другом языке, таком как python, если это будет проще, но я более удобен для Perl.

Answer 1

Один из способов выполнения внешних команд из сценария Perl является использование system:

my $cmd = 'rar a -rr10 -s c:\backups\backup.rar @backup.lst'; 
if (system $cmd) { 
    print "Error: $? for command $cmd" 
} 

Answer 2

Чтобы использовать внешние приложения из своей программы Perl, используйте встроенный system.

Если вам нужен вывод из команды, вы можете использовать оператор обратного хода (``) или qx, как описано в perlop. Вы также можете использовать трубы, как описано в perlipc.

Answer 3

Вы можете получить доступ к RAR объектов в Windows, используя модуль CPAN Archive::Rar:

use Archive::Rar; 
my $rar = Archive::Rar->new(-archive => $archive_filename); 
$rar->Extract();