Forum Webscript.Ru

Программирование => Perl => Тема начата: gig от 11 Сентября 2006, 18:49:14

Название: картинка//вопрос абсолютного новичка
Отправлено: gig от 11 Сентября 2006, 18:49:14

помогите, плз
не понимаю, что еще нужно сделать,чтобы работало


#!/usr/bin/perl
$|++;

my $file = \'/.../WWW/tabhover.gif\';
open(PIC, $file);

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

binmode STDOUT;
print PIC ;
close(PIC);
exit 0;

когда загружаешь, пишет просто http://ХХХ.ХХХ.com/cgi-bin/imgsrv.pl причем думает что это картинка

п.с. простите, наверное, вопрос очень глупый. тем не менее надеюсь на вашу помощь

Название: картинка//вопрос абсолютного новичка
Отправлено: NeoNox от 11 Сентября 2006, 19:33:08

print ; #Это у тебя файлхендл.