ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Borodich                      2:5020/400     12 Apr 2003  19:30:56
 To : Valeriy Yermolenko
 Subject : Re: Image resizer
 -------------------------------------------------------------------------------- 
 

 Valeriy Yermolenko wrote:
 
 > Привет всем
 > 
 > Помогите разобраться с такой проблемой. Я уверен что это уже давно
 > сделано, только все ни как не могу найти модуль :(
 > 
 > Hужен модуль который изменяет размер картинки. Hапример у меня на
 > сервере лежит картинка размером 640х480 мне надо сделать превью
 > небольшой картинкой 120х100. Сейчас я вручную в фотошопе делаю маленькую
 > картинку и загружаю на сервак, но это достаточно утомительно и глупо :(
 > 
 > Плиз, подскажите какой модуль мне использовать.
 > 
 > 
 > С уважением, Валерий Ермоленко.
 
 use Image::Magick;
 
 Вот пример
 
          my $image = new Image::Magick;
          my $error = $image->Read($tmp_file);
          die "$error\n" if $error;
          my ($height, $width) = $image->Get('height', 'width');
          if ($height > 64) { $width=int($width*64/$height); $height=64; }
          if ($width > 64) { $height=int($height*64/$width); $width=64; }
          $error = $image->Resize( height=>$height, width=>$width );
          die "$error\n" if $error;
          $error = $image->Write("$filename");
          die "$error\n" if $error;
 Хотя есть вроде более специализированый Image::Thumbnail
 
 -- 
 Sergey Borodich
 http://bor.wpt.com.ua
 
 --- ifmail v.2.15dev4
  * Origin: National Taras Shevchenko University of Kyiv (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор