HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу [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
Познавший АНТИЧАТ
Регистрация: 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
Познавший АНТИЧАТ
Регистрация: 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, спасибо за помощь)
 
Ответить с цитированием
Ответ



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



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


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




ANTICHAT.XYZ