Сообщения

1

Perl / Проблема с уменьшением картинки в Image::Magick !!!

« : 14 Мая 2005, 10:33:28 »

Методы тогда подскажи , которые с каналами играют )

2

Perl / ошибка

« : 13 Мая 2005, 18:07:56 »

Извини а что за отладчик такой чудесный, ты в чём пишешь?
Можно просто "print"-ами посмотреть где скрипт отваливается.

3

Perl / ошибка

« : 13 Мая 2005, 01:39:31 »

Короче ошибок в коде не вижу, я думаю что проблема в том что параметр $filename неопределён.Ругается то на него.
Посмотри у тебя в имени поля "file" нет ошибки ?

4

Perl / ошибка

« : 12 Мая 2005, 22:25:37 »

А значение $filename у тебя чему равно ?
Покажи строки до вызова этих методов.

5

Perl / Проблема с уменьшением картинки в Image::Magick !!!

« : 12 Мая 2005, 19:07:08 »

Прошу хелпа , у меня проблемка возникла ,если есть опыт работы с этим модулем подскажите , а то проект горит !!!

Короче проблема вот в чём :

sub copy_magick{
   my $src = shift;
   my $gal_dir = shift;
   my $gal_name = shift;
   my $img_name = shift;
   my $img = new Image::Magick;
   my $stat = $img->Read($src);
   die "$stat Can\'t read img $src !" if "$stat";  
   my($w,$h) = $img->Get(\'width\', \'height\');



   my $my_w = $w ;
   my $my_h = $h ;
   if ( $my_w > 600 || $my_h > 600 ) {
      if ( $w > $h ) {
         $my_w = 600 ;
         $my_h = $h * $my_w/$w;
      }
      else {
         $my_h = 600 ;
         $my_w = $w * $my_h/$h;
      }
   }
   
    if ( $w > $h ) {
         $my_t_w = 100 ;
         $my_t_h = $h * $my_t_w/$w;
      }
      else {
         $my_t_h = 100 ;
         $my_t_w = $w * $my_t_h/$h;
    }
##Изменяю размер фотки до 600px в ширину и сжимаю в JPG

   $stat = $img->Resize(width=>"$my_w",height=>"$my_h");

   die "$stat Can\'t resize img $src !" if "$stat";  

   $stat = $img->Write(filename=>"$gal_dir$gal_name/$img_name",
                                                       compression=>\'JPEG\',quality=>\'70\');
 
    die "$stat Can\'t write img $src !" if "$stat";  

##Изменяю размер фотки до размера
###        превьюшки шириной 100px и тоже сжимаю в JPG
   
    $stat = $img->Resize(width=>"$my_t_w",height=>"$my_t_h");
   
    die "$stat Can\'t resize thumbneil $src !" if "$stat";  
   
    $img_name="t"."$img_name";
   
    $stat = $img->Write(filename=>"$gal_dir$gal_name/$img_name",                                                                compression=>\'JPEG\',quality=>\'30\');
 
   die "$stat Can\'t write thumbneil $src !" if "$stat";  
 
   undef $img;
}

на выходе получаю прекрасную  600 х n большую фотку весом 75кб

и превьюшку к ней размерм 100 х n весом 35кб !!!!!!!!!
Что делать ? Почему размер превьюшки такой большой ?
Уровень сжатия пробовал до 20 , а ей хоть бы что !!!
:confused:
ПОМОГИТЕ СОВЕТОМ !!!