ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу [Perl] Конвертирование изображений
   
 
 
Опции темы Поиск в этой теме Опции просмотра

[Perl] Конвертирование изображений
  #1  
Старый 05.01.2010, 07:47
apofis
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме:
267868

Репутация: 0
По умолчанию [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. Никак не получается....

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

  #2  
Старый 05.01.2010, 14:12
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
http://search.cpan.org/~lds/GD-2.44/GD.pm
 

  #3  
Старый 05.01.2010, 14:58
apofis
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме:
267868

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

  #4  
Старый 05.01.2010, 15:34
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
use GD;
my $image = GD::Image->newFromPng('file.png');
my $jpeg = $image->jpeg;

и $jpeg в файл
 

  #5  
Старый 05.01.2010, 15:48
apofis
Познающий
Регистрация: 23.02.2009
Сообщений: 35
Провел на форуме:
267868

Репутация: 0
По умолчанию
Вообщем, я тут сам посидел, подумал. Вот что в итоге получилось:

use GD;

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

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

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



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ