|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Volkogon 2:5020/400 17 Jun 2000 13:27:42
To : All
Subject : help with GD
--------------------------------------------------------------------------------
Хай!
Hе подскажет ли кто-нибудь почему не заполняется файл. Создается он то
создается, а не заполняется. Остается нулевой размер. Похоже, что ошибка
происходит в print FILE $im->jpeg(100);
А почему?
Сенкс.
#!/usr/bin/perl
use lib "/cgi-bin/lib/gd";
use GD;
print "Content-type: text/html \n\n";
print "<html><body>\n";
$im = new GD::Image(360,480);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$green = $im->colorAllocate(0xaa,0xcc,0xaa);
$im->rectangle(0,0,359,479,$black);
open (FILE, ">test.jpg") or die ("Cannot open file test.jpg");
binmode FILE;
print FILE $im->jpeg(100);
close(FILE);
print "<img src=test.jpg>";
print "</body></html>\n";
--- ifmail v.2.15dev5
* Origin: Alfacom's news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
help with GD |
Alexey Volkogon |
17 Jun 2000 13:27:42 |
|
|
