Програмирование на Perl

Question

[Lorents]

Добрый день!
Есть один проект на Perl, называется Image PNG Rewriter. Суть работы заключается в сжатии PNG использую для этого Compress-Deflate7, но у меня так и не выходит заставить его работать, он не жмет изображения.

Вроде все установил, код использую следующий

use Image::PNG::Rewriter;
use Compress::Deflate7;
use IO::File;
my ($in, $out) = splice @ARGV, 0, 2;
IO::File->new($out, '>:raw')->syswrite(
Image::PNG::Rewriter->new(handle => IO::File->new($in, '<:raw'), zlib => \&zlib7)->as_png
);
sub zlib7 {
Compress::Deflate7::zlib7($_[0], @ARGV);
}

параметры следующие perl new.pl old.png new.png Algorithm 1 Pass 15 FastBytes 128 Cycles 2

Очень надеюсь на помощь

Comments

[Sb0y]

Ну а ошибки есть какие-то? Ругань компилятора, варнинги?
Рекомендую вконце скрипта, ну или после какой-нибудь подозрительной операции написать:
die $@ if $@

[Lorents]

ошибок нету, создается new.png, при этом размер тот же, что и у old.png, но MD5 разные.

Answer 1

[afiskon]

Перепишите свой код по-человечески, чтобы читать можно было. Глядишь, и ошибку увидите.

Answer 2

[Sb0y]

>ошибок нету, создается new.png, при этом размер тот же, что и у old.png, но MD5 разные.

На первый взгляд кажется, что не хватает какого-то параметра и по-мойму, определяющего уровень сжатия.

Comments

[Lorents]

Он есть, за это должен отвечать параметр Pass, я как только не менял параметры, бесполезно.
Смотрите, мне это нужно, для своего небольшого проекта, суть его работы можно прочитать здесь.
habrahabr.ru/blogs/web_design/119009/