perl тэг img [Версия для КПК] - Компьютерный форум OSzone.net

Показать полную графическую версию : perl тэг img

cool2

21-11-2005, 22:07

что нужно добавить или убрать в этом сценарии ,чтобы отобразить рисунок в браузере

путь к рисунку /usr/local/www/image/abs075.jpg

сервер apache13

#! /usr/bin/perl -w
use strict;
use CGI qw(:standard escapeHTML escape);
use lib qw(/usr/local/apache/lib/perl);

print header(),
start_html(-title =>"ris", -bgcolor=>"white"),
img({-src=>"http://192.168.0.5/image/abs075.jpg"}),

end_html();
exit(0);

если запросить html файл с рисунком то все ок
а сценарий на перл не отоброжает

заранее спасибо

dmitryst

22-11-2005, 09:51

cool2
Попробуйте here-doc вариант:

print "Content-type: text/html\n\n"

print <<END
<html><head>
<title></title>
</head>
<body>
<img src="http://192.168.0.5/image/abs075.jpg">
</body></html>
END

cool3

22-11-2005, 20:39

dmitryst спасибо все работает, эт я не внимательный был:)