картинка

[frenky]

Как сделать перл скрипт чтоб он выдавал картинку?
тоесть выдавало картинку

[NeoNox]

print "Content-type: image/jpg\\n\\n";
open (FH, \'/path/to/kartinka.jpg\') or die "Can\'t open kartinka.jpg: $!";
print while ;
close FH;

[frenky]

ну вот есть http://alex-ua.com/cgi-bin/test/ee.pl
#!/usr/bin/perl -w

print "Content-type: image/jpg\\n\\n";
open (FH, "../bimg/q.jpg") || die "Can\'t open : $!";
print while ;
close FH;


open(FL ,">11.txt") || die "open file error";
print FL "ssss";
close(FL);



и картинка
http://alex-ua.com/bimg/q.jpg


тольк вот ничего не показывает

[frenky]

[AnnA]

frenky, похоже Вы забыли про тэг http://alex-ua.com/cgi-bin/test/ee.pl">

[NeoNox]

frenky:
ну вот есть http://alex-ua.com/cgi-bin/test/ee.pl

frenky:
и картинка http://alex-ua.com/bimg/q.jpg

frenky:
open (FH, "../bimg/q.jpg") || die "Can\'t open : $!";

С путями наведи порядок.
Можно еще
binmode STDOUT;
перед выводом картинки поставить - это хороший тон.

[commander]

AnnA
если не знаешь... - не советуй...
frenky
замени...
print "Content-type: image/jpg\\n\\n";
на
print "Content-type: text/html\\n\\n";

[NeoNox]

commander поясни мне тайный смысл выдавать неправильный Content-type?

[commander]

NeoNox
на заголовок print "Content-type: image/jpg\\n\\n"; эксплоер выдаст загрузку файла...
а как я понял ему нужно вывести картинку в браузер... или я не прав?

[NeoNox]

Не прав.

frenky:
тоесть выдавало картинку

commander:
на заголовок print "Content-type: image/jpg\\n\\n"; эксплоер выдаст загрузку файла

А нормальный броузер выдаст то что и положено - содержимое файла типа

GIF89aъFnd jnsdhfps...

[frenky]

Все разобрался  NeoNox   big respect!

[frenky]

получаеться что можно стырить любую cookies и зайти под ними

[NeoNox]

frenky это ты к чему?