Вот, если в конце Write заменить на запись в файл, все на ура, но вот вывод не хочет работать
Апач в логах:
[Sat Dec 25 19:22:55 2004] [error] [client 127.0.0.1] File does not exist: c:/www/bestweb.ru/www/favicon.ico
[Sat Dec 25 19:37:59 2004] [error] [client 127.0.0.1] malformed header from script. Bad header=GIF89ax: c:/www/bestweb.ru/www/cgi-bin/code.pl
в чем дело?
Код:
use Image::Magick;
srand(time());
for($i=1;$i<4; $i++){
$l1.=int(rand()*9);
}
$image = Image::Magick->new;
$img_obj = $image->Read("../barcode/1.gif");
$image->Annotate(text=>$l1, font=>'../comic.ttf', pointsize=>'44', pen=>'#6986A2', x=>10, y=>36);
$image->ReduceNoise();
$image->OilPaint();
$image->ReduceNoise();
print "Content-type: image/gif\n\n";
binmode STDOUT;
$image->Write("gif:-");