| Новости | 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....";оба лежат в корне /