Forum Webscript.Ru
Программирование => Perl => Тема начата: frenky от 28 Января 2005, 13:46:30
-
Как сделать перл скрипт чтоб он выдавал картинку?
тоесть выдавало картинку
-
print "Content-type: image/jpg\\n\\n";
open (FH, \'/path/to/kartinka.jpg\') or die "Can\'t open kartinka.jpg: $!";
print while ;
close FH;
-
(http://alex-ua.com/cgi-bin/test/ee.pl)
ну вот есть 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
тольк вот ничего не показывает
-
(http://http://alex-ua.com/cgi-bin/test/ee.jpg.pl)
-
frenky, похоже Вы забыли про тэг
-
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;
перед выводом картинки поставить - это хороший тон.
-
AnnA
если не знаешь... - не советуй...
frenky
замени...
print "Content-type: image/jpg\\n\\n";
на
print "Content-type: text/html\\n\\n";
-
commander поясни мне тайный смысл выдавать неправильный Content-type?
-
NeoNox
на заголовок print "Content-type: image/jpg\\n\\n"; эксплоер выдаст загрузку файла...
а как я понял ему нужно вывести картинку в браузер... или я не прав?
-
Не прав.
frenky:
тоесть выдавало картинку
commander:
на заголовок print "Content-type: image/jpg\\n\\n"; эксплоер выдаст загрузку файла
А нормальный броузер выдаст то что и положено - содержимое файла типа GIF89aъFnd jnsdhfps...
-
Все разобрался NeoNox big respect!
-
получаеться что можно стырить любую cookies и зайти под ними
-
frenky это ты к чему?