|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Berez 2:5037/777 09 Apr 2002 16:24:48
To : All
Subject : GD.pm question
--------------------------------------------------------------------------------
>gd.cgi:
#!c:/progra~1/perl/bin/perl -w
use CGI::Carp qw (fatalsToBrowser);
use GD;
$im = new GD::Image(100,100);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
$im->transparent($white);
$im->interlaced('true');
$im->rectangle(0,0,99,99,$black);
$im->arc(50,50,95,75,0,360,$blue);
$im->fill(50,50,$red);
print "Content-Type: image/gif\n\n";
binmode STDOUT;
print $im->gif;
>gd.shtml:
<html><head></head><body>
<img src="cgi-bin/gd.cgi">
</body></html>
не pаботает, пишет 500ю ошибкy (Premature end of
script headers: c:/www/cgi-bin/gd.cgi)
вопpос-- почемy? обидно, да... :((
зы. сеpвеp - апач/32 1.3.22, активпеpл 5.6.1,
gd.pm 1.27...
яяяSu Pagarba, Alex Berez
--- mailto:aberez@mail.customs.ru ICQ:54134102
* Origin: Beretta BBS - 23шш-05шш everyday - (0722)-52-2033 (2:5037/777)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
