Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   [Perl] Конвертирование изображений (https://forum.antichat.xyz/showthread.php?t=168359)

apofis 05.01.2010 07:47
[Perl] Конвертирование изображений
 
Как можно в Perl конвертировать изображения?
Например из .png в .jpg?

Пробовал так:

Код:
use Image::Magick;
my $image = Image::Magick->new;
my $x = $image->Read("picture.png");
$x = $image->Write("picture.jpg");
Но не могу нормально подключить Image::Magick. Никак не получается....

Какие-нибудь, кроме этого, методы существуют?

Kaimi 05.01.2010 14:12
http://search.cpan.org/~lds/GD-2.44/GD.pm

apofis 05.01.2010 14:58
Цитата:
Сообщение от Kaimi
http://search.cpan.org/~lds/GD-2.44/GD.pm
А можно рабочий пример конвертирования из одного формата в другой? А то чет не получается....

Kaimi 05.01.2010 15:34
use GD;
my $image = GD::Image->newFromPng('file.png');
my $jpeg = $image->jpeg;

и $jpeg в файл

apofis 05.01.2010 15:48
Вообщем, я тут сам посидел, подумал. Вот что в итоге получилось:

use GD;

open(PNG,"pic.PNG");
$im = newFromPng GD::Image(PNG);
open(PICTURE, ">pic.jpg");
binmode PICTURE;
print PICTURE $im->jpeg;
close PICTURE;

Работает отлично)

Kaimi, спасибо за помощь)


Время: 00:26