kiss me?help me?answer me?tell me?

[ymdxf]

#!/usr/bin/perl

use GD;
print "Content-type: image/png\n\n";
$im = new GD::Image(100,100);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$im->rectangle(0,0,99,99,$black);
$im->fill(50,50,$black);
binmode STDOUT;
print $im->png;

print "Content-type: text/html\n\n";
print "ok";
除了用插入<img src="的方式，为什么我不能在同一个CGI程序里输出PNG和HTML格式？请教有没有方法？

[netken]

hehe,你想如果可以一下输出两种格式的话，接受方怎么算呢?
怎么会知道内容到底是 第一个 html_header 的格式，还是第二个？

在一次 cgi 后台程序执行的过程中，只能有一个 header ,第二个 header 是不被承认的，也就是说第二个 header 的内容不会被认为是 header ,而是做为第一个 header 所说明的格式 显示出来了。

[ymdxf]

netken(小肯),有没有什么方法解决？对了还有一个问题？
#!/usr/bin/perl

use GD;
print "Content-type: image/png\n\n";
$im = new GD::Image(100,100);
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$im->rectangle(0,0,99,99,$black);
$im->fill(50,50,$black);

open(STDOUT,">image.png") || die $!;
print STDOUT $im->gd;
close(STDOUT);
为什么我建立的图片无法显示？

[netken]

binmode FileHandle 就可以了;)

[ymdxf]

netken(小肯)，binmode FileHandle ？？？？？？？？？

[beckheng]

在这里就是binmode(STDOUT);

[ymdxf]

open(STDOUT,">image.png") ¦¦ die $!;
print STDOUT $im->gd;
close (STDOUT);
我看见有一段程序行，为什么我自己无法建立一张图片？

[netken]

open STDOUNT ...
binmode STDOUT
print STDOUNT ...
close STDOUNT

[ymdxf]

ok