|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sergey Naumov 2:5095/41 20 Mar 2001 21:15:52 To : All Subject : Вывод нескольких документов --------------------------------------------------------------------------------
Помогите плз. Осуществить сабж. Я в той документации, которая у меня есть
наковырял то, что если выводить вот такой заголовок:
print "Content-type: multipart/mixed; boundary=\"$separator\"\n\n";
Можно будет выводить несколько файлов. (Мне нужно вывести несколько рисунков).
Я написал такую програму:
#!/usr/local/bin/perl
$separator="yehwo,dmwedl30kds";
print "Content-type: multipart/mixed; boundary=\"$separator\"\n\n";
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Hо если я пишу эту строку - броузер пытается сохранить на диске выходные данные
скрипта в виде файла.
print "Content-type: text/html\n\n";
print "\n--$separator\n";
open(F,"pictures/picture.gif");
binmode F;
binmode STDOUT;
@img=<F>;
close F;
print @img;
print "\n--$separator--\n";
#print "Content-type: text/html\n\n";
#print "Hi!";
#print "\n--mybdr\n";
#print @img;
#print "\n--mybdr--\n";
=== Конец цитаты ===
С уважением, Сергей Hаумов 20 марта 2001 года
---
* Origin: (2:5095/41)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18393ab7bb85.html, оценка из 5, голосов 10
|