圧縮ファイルから復元

質問

圧縮ファイルから復元

system("tar cvzf $backup $base");

上で作られた圧縮ファイルを、別のフォルダにパーミッション含めて丸ごと
復元するには、どのようにすればいいのでしょうか？

回答No.3

kmee · ベストアンサー

あの、system関数って、それをコマンドラインで実行したのと同じだってことはおわかりですか?

> tar zxvfP /var/bkup/bkup.tar.gz /home
>上記のように、指定したディレクトリや、ファイルのみを復元できれば更にいいのですが。

systemの引数がそうなるように書けばいいのですが。
system( "tar zxvfP /var/bkup/bkup.tar.gz /home" ) ;

お礼

ありがとうございます。
Not found in archive
このようなエラーが表示されましたが、もう寝る時間なので
明日以降調べてみようと思います。

回答No.4

Tacosan

もはや Perl は全く関係ないんだけど, ある種の tar では絶対パスが使えないことがある. アーカイブファイルの中に, どのように記録されているのかを確認すべし.

回答No.2

Tacosan

使い方は知らんけど
Archive::Extract
ってモジュールはあるみたい.

お礼

ありがとうございます。
ちょっと調べてみた限りでは、わからなかったので
明日以降調べてみようと思います。

回答No.1

Tacosan

Perl の質問じゃないと思うなぁ.
「別のフォルダ」で展開するだけ, では?

補足

質問の仕方が下手で、正確に伝わらなくて申し訳ありません。

perlで直接ファイルを解凍したいのですが、出来ないでしょうか？

# tar zxvfP /var/bkup/bkup.tar.gz /home
上記のように、指定したディレクトリや、ファイルのみを復元できれば更にいいのですが。