Hello ALL!
Написан скрипт, который использует image magick и работает он как маленькая больная черепашка.
Очень хотелось бы узнать, как измерить скорость выполнения скрипта и было-б совсем замечательно если еще и узнать место основного затыка. Есть ли какие основные приемы ускорения выполнения или может мне лучше использовать не image Magick а например GD (не уверен, что в нем есть нужные мне ф-ии ).
###
# impose.pl
use Image::Magick;
use HTTP::Response;
use CGI qw(:standard);
######
# Вытаскиваем первый параметр, переданный браузером
my $query = $ENV{ "QUERY_STRING"}; # должно получится примерно -> ?no=2625&fu=2
my (@array, $line, $url);
$line="
http://et.ru.ecotech.ru/price/index.shtml";
push(@array, $line);
push(@array, $query);
$url=join(\'\',@array);
$model=Image::Magick->new(); # новый проект для основного изображения
$model->Read($url);
$logo=Image::Magick->new; # новый проект для логотипа
$x=$logo->ReadImage(\'logo.jpg\'); # изображение, которое надо наложить(логотип), читаем его
# Определяем размер изображения, которое нужно вставить
my ($ox,$oy)=$model->Get(\'base-columns\',\'base-rows\'); #определяем ширину и высоту основного изображения
$logo->Resize(width=>$ox, height=>$oy/4); #Делаем resize: высота - четверть от начальной, ширина - полная длина первого изобр.
$model->Composite(image=>$logo,compose=>\'over\',geometry=>\'+0+0\');
####
#Вывод изображения в страницу
$blob=$model->ImageToBlob(magick=>\'gif\');
binmode STDOUT;
print "Content-type: image/gif\\n";
print "\\n";
print $blob;
exit;
