Re: не буду заводить новую ветку

Spearance 07.10.2008 13:25

код Perl:

#!/usr/bin/perl

use Image::Magick;

print "Content-Type: image/gif\n\n";

$image = Image::Magick->new;
$image->Read("/www/typograf/www/htdocs/images/first_page/first_01.jpg");
binmode STDOUT;
$image->Write("gif:-");

результат
Код Parser:

@main[]
$response:body[^file::cgi[/../cgi-bin/test.pl]]

результат
Причем нет никакой разницы где поставить заголовок в парсере или в перле, результат идентичен. Parser/3.2.3 (compiled on i386-unknown-freebsd6.2)

---