Новости | FAQ | Авторы | Документация | В действии | Библиотека |
Инструменты | Полезные ссылки | Хостинги | Скачать | Примеры | Форум |
527 26.09.2003 11:23 / 26.09.2003 11:26
освоил тут Image Magick прикольная весчь!#exec.html ############ @main[] $f[^file::exec[image.pl]] Result:<br> $f.textа его хочу запустить:
#image.pl #!g:\Perl\bin\Perl.exe use Image::Magick; $w = 290; my($image, $x); $image = Image::Magick->new; $x = $image->Read("photo.jpg"); ($width,$height)=$image->Get('base-columns','base-rows'); $h=int(($w/$width)*$height); $image->Resize(geometry=>geometry, width=>$w, height=>$h); $image->Annotate( text=>'www.parser.ru', font=>'arial', fill=>'#ffffff', pointsize=>'10', antialias=>'true', X=>10, Y=>int($h-5) ); $x = $image->Write("photo2.jpg"); print "Content-Type: text/html\n\n"; print "perl script ok....";оба лежат в корне /