Forum Webscript.Ru

Общие => Гостевая Webscript.Ru Network => Тема начата: NAS от 11 Ноября 2002, 10:26:14

Название: Image::Magick или фотошоп для perl.
Отправлено: NAS от 11 Ноября 2002, 10:26:14

Новая статья
http://www.webscript.ru/stories/02/11/11/9439190

Название: Image::Magick или фотошоп для perl.
Отправлено: Oak от 12 Ноября 2002, 02:46:50

[off]ты бы в Navigator это кинул ;) - искать потом легче[/off]

Да - прикольно.
Можно такое же (и из perl) и с Gimp-ом делать.
Но тот более тяжелый будет.

Название: Image::Magick или фотошоп для perl.
Отправлено: КшЫуфксрук от 12 Ноября 2002, 03:33:24

Такого количества ошибок я давно уже не видел. Если автору это по барабану, хотя бы модераторы сайта причесали бы хоть немного.

Название: Image::Magick или фотошоп для perl.
Отправлено: NeoNox от 12 Ноября 2002, 11:19:48

КшЫуфксрук, а указать? В коде я только неточности увидел (в том, что при use strict; будут сыпаться не определенные переменные). В описании, если честно, его лень читать.
Судя по размеру, в этой статье, даже десятая часть возможностей этого модуля не уместилась.Там ссылка есть на http://www.simplesystems.org/ImageMagick/www/perl.html Что еще нужно?

Название: Image::Magick или фотошоп для perl.
Отправлено: КшЫуфксрук от 12 Ноября 2002, 20:45:48

Я имел в виду именно текст, а не код. На этом сайте я не ожидал увидеть такой абсолютно безграмотной статьи. Или среди программеров грамота нынче не в моде?

Название: Image::Magick или фотошоп для perl.
Отправлено: NeoNox от 13 Ноября 2002, 12:00:15

NAS, действительно, можно было хотя бы вордом пробежаться.
А в коде, либо my вообще убрать, либо придерживаться use strict; (лучше приучиться сразу использовать второй вариант)
use Image::Magick; #используем модуль
use strict;
my($image, $x, $ox, $oy, $nx, $nnx); #переменные
$image = Image::Magick->new; #новый проект
$x = $image->Read("photo.jpg"); #открываем файл
($ox,$oy)=$image->Get(\'base-columns\',\'base-rows\'); #определяем ширину и высоту изображения

$nx=int(($ox/$oy)*150); #вычисляем ширину, если высоту сделать 150
$image->Resize(geometry=>geometry, width=>$nx, height=>150); #Делаем resize (изменения размера)
if($nx>200) { #Если ширина получилась больше 200
$nnx=int(($nx-200)/2); #Вычисляем откуда нам резать
$image->Crop(x=>$nnx, y=>0); #Задаем откуда будем резать
$image->Crop(\'200x150\'); #С того места вырезаем 200х150
}
$x = $image->Write("photo.jpg"); #Сохраняем изображение.

Название: Image::Magick или фотошоп для perl.
Отправлено: NAS от 13 Ноября 2002, 12:17:27

Все вопросы к автору статьи, в статье есть его реквизиты.

Название: Image::Magick или фотошоп для perl.
Отправлено: NeoNox от 13 Ноября 2002, 12:33:11

У меня к нему вопросов нет ;)