activeperlでバッチ処理をするためにcygwin環境をつくりzipコマンドをインストールしました。
有る特定のファイル(jpgなど)を”内部フォルダを作らずに”まとめてzipに圧縮したいのですが、うまくいきません。
因みにいまやっているコマンドは
zip archive.zip xxxx.jpg
というコマンドです。
うまく説明できないので、次の図を参考にしてください。
archive.zip{
+folder
├ファイル
└ファイル
}
という配置ではなく、圧縮ファイルの中に直接ファイルがあるようにしたいのです。
archive.zip{
ファイル
}
↑こんなかんじ。
zipコマンドでフォルダを作らずに圧縮出来る場合はコマンドを、出来ない場合はそう仰っていただければ大丈夫です。
クリティカルな解答がでた時点で締め切らさせていただきます。
ちょいとmanで調べる時間がないので宜しくお願いいたします。
Yahoo! JAPAN
#!/path/to/perl
use strict;
my $dir = ’/tmp’;
my @files = `$tmp`;
for my $file(@files){
chomp($file);
`gzip $file.zip $file` or die(”can not zipped $_.$?¥n”);
}
こんな感じでいかがでしょうか。
http://homepage2.nifty.com/cs/linux_command/command/zip.html
$BF|7P(JLinux [Linux$B%3%^%s%I=8(J] zip : .zip$B%U%!%$%k$K05=L$9$k(J
zip archive.zip xxx01.jpg xxx02.jpg
とファイルをつなげていけば一つのファイルに圧縮出来ると思います
http://www.atmarkit.co.jp/flinux/rensai/linuxtips/123usezipfile....
ZIP形式のファイルを展開・圧縮するには
jpgファイルを archive.zip というファイルに圧縮するのであれば、以下のコマンドでできませんか?
zip archive.zip *.jpg
なんか勘違いだったみたいで済みません。
普通にやってできてました。
すいませんが均等分配させていただきますー。