perl и zip архив
Добавлено: 2015-03-10 10:37:20
Всем привет. Кто в теме, в ханбуке вариант. Не пойму как вкорячить сюда уровернь сжания ну например -7
-Level
Defines the compression level used by zlib. The value should either be a number between 0 and 9 (0 means no compression and 9 is maximum compression), or one of the symbolic constants defined below.
Код: Выделить всё
use strict ;
use warnings ;
use IO::Compress::Zip qw(zip $ZipError) ;
my $input = "file1.txt";
zip $input => "$input.zip"
or die "zip failed: $ZipError\n";