windows - Windowsのperlでwinrarを呼び出すにはどうすればよいですか

Question

次のようなWindowsシステムでperlを介してwinrarを呼び出すことは可能ですか?

perl -e "rar a -rr10 -sc:\backups\backup.rar @backup.lst"

もしそうなら、これを行うより効率的な方法はありますか？

Google で "perl -e" +winrar を検索しましたが、探していたものに近い回答は得られませんでした。これを実行しているシステムは Windows XP システムです。Python のような別の言語でこれを実行する方が簡単な場合はオープンですが、perl の方が快適です。

score 4 · Accepted Answer

CPANモジュールArchive::Rar：を使用して、WindowsのRAR機能にアクセスできます。

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

score 2 · Accepted Answer

Perl スクリプトから外部コマンドを実行する 1 つの方法は、systemを使用することです。

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

score 1 · Accepted Answer

Perl プログラムから外部アプリケーションを使用するには、system builtin を使用します。

コマンドからの出力が必要な場合は、perlopで説明されているように、バッククォート (``) または qx 演算子を使用できます。perlipcで説明されているように、パイプを使用することもできます。

3 に答える 3