Автор Тема: Image::Magick или фотошоп для perl.  (Прочитано 3750 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн NAS

  • Неопытный юзер
  • Администратор
  • Ветеран
  • *****
  • Сообщений: 2951
  • +1/-0
  • 1
    • Просмотр профиля
    • http://nhouse.ru
Image::Magick или фотошоп для perl.
« : 11 Ноября 2002, 10:26:14 »

Оффлайн Oak

  • Дерево
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1481
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
Image::Magick или фотошоп для perl.
« Ответ #1 : 12 Ноября 2002, 02:46:50 »
[off]ты бы в Navigator это кинул ;) - искать потом легче[/off]

Да - прикольно.
Можно такое же (и из perl) и с Gimp-ом делать.
Но тот более тяжелый будет.
[основной броузер - SeaMonkey] Netscape Communicator 4 - is the best :) // see sources

Оффлайн КшЫуфксрук

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 99
  • +0/-0
  • 0
    • Просмотр профиля
    • http://risearch.org/
Image::Magick или фотошоп для perl.
« Ответ #2 : 12 Ноября 2002, 03:33:24 »
Такого количества ошибок я давно уже не видел. Если автору это по барабану, хотя бы модераторы сайта причесали бы хоть немного.

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Image::Magick или фотошоп для perl.
« Ответ #3 : 12 Ноября 2002, 11:19:48 »
КшЫуфксрук, а указать? В коде я только неточности увидел (в том, что при use strict; будут сыпаться не определенные переменные). В описании, если честно, его лень читать.
Судя по размеру, в этой статье, даже десятая часть возможностей этого модуля не уместилась.Там ссылка есть на http://www.simplesystems.org/ImageMagick/www/perl.html Что еще нужно?
The documentations is your friend

Оффлайн КшЫуфксрук

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 99
  • +0/-0
  • 0
    • Просмотр профиля
    • http://risearch.org/
Image::Magick или фотошоп для perl.
« Ответ #4 : 12 Ноября 2002, 20:45:48 »
Я имел в виду именно текст, а не код. На этом сайте я не ожидал увидеть такой абсолютно безграмотной статьи. Или среди программеров грамота нынче не в моде?

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Image::Magick или фотошоп для perl.
« Ответ #5 : 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"); #Сохраняем изображение.
The documentations is your friend

Оффлайн NAS

  • Неопытный юзер
  • Администратор
  • Ветеран
  • *****
  • Сообщений: 2951
  • +1/-0
  • 1
    • Просмотр профиля
    • http://nhouse.ru
Image::Magick или фотошоп для perl.
« Ответ #6 : 13 Ноября 2002, 12:17:27 »
Все вопросы к автору статьи, в статье есть его реквизиты.

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Image::Magick или фотошоп для perl.
« Ответ #7 : 13 Ноября 2002, 12:33:11 »
У меня к нему вопросов нет ;)
The documentations is your friend

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28