ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу [Perl] Конвертирование изображений
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Perl] Конвертирование изображений
  #1  
Старый 05.01.2010, 07:47
Аватар для apofis
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
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
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
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
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, спасибо за помощь)
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Новости Софта Dimi4 Мировые новости 1047 17.06.2010 13:34
Печать изображений (быстрый редактор изображений) ZnikiR Болталка 3 09.12.2009 07:28
Открытая реализация нейронной сети для распознавания изображений darkwkz Мировые новости 7 14.10.2009 03:56
Brute admin password [perl] Звeрь PHP, PERL, MySQL, JavaScript 7 02.02.2009 13:01



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


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




ANTICHAT.XYZ