Прошу хелпа , у меня проблемка возникла ,если есть опыт работы с этим модулем подскажите , а то проект горит !!!
Короче проблема вот в чём :
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:
ПОМОГИТЕ СОВЕТОМ !!!
