Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Форма не передаёт тело файла, только путь к нему 
:(
    Опции темы
everyone
  Дата 28.8.2004, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 218
Регистрация: 24.3.2004

Репутация: нет
Всего: 4



Код

<!--Html-->
<input type="file" name="myimage" accept="image/gif">


Код

#perl
#данные из STDIN сохранены в хэше %youin, ключ - имя формы(myimage), содержание ячейки - передаваемые формой данные.
print $youin{'image'};


строка $youin содержит только путь к файлу, как найти тело картинки и сохранить её на диске?
--------------------
Что написал, то написал (Пилат)
PM ICQ Skype   Вверх
Secandr
Дата 28.8.2004, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Связист
****


Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39



давно дело было, но есть одни грабли - там нужно указать в теге <form> что-то, в факе по пхп приводится правильная форма.


--------------------
Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco
PM ICQ AOL   Вверх
HalkaR
Дата 29.8.2004, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Пуфыстый назгул
****


Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42



Код
<form action="script.pl" method="POST" enctype="multipart/form-data">
enctype="multipart/form-data"!
PM MAIL   Вверх
everyone
Дата 4.9.2004, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 218
Регистрация: 24.3.2004

Репутация: нет
Всего: 4



Тело я отправить смог.
Код

<form action="http://localhost/cgi-bin/null.pl" method="post" enctype="multipart/form-data">
<input type="file" name="image" accept="image/jpg"><br>
<input type="submit" value="Click Me">


вот так я сохранил весь ввод на диск:
Код

#begin
print "Content-Type:text/html\n\n";

$content=$ENV{'CONTENT_LENGTH'};

sysread(STDIN, $query, $content);

open(myimage,">/usr/local/www/spider.jpg");

binmode(myimage);

print myimage $query;


Но как обрабатывать картинку? Ввод имеет не стандартный формат, никаких "=", "&". И если например из одной формы отправляется эта картинка и ещё какой-то текст, то текст просто затирается и куда-то исчезает.
Сохранённая картинка не просматривается в браузере, её видно только в ACDSee, скорее всего из-за строк в начале файла:
Код

------------fUYin1fJILPJn4FPML6AMy
Content-Disposition: form-data; name="image"; filename="spider.jpg"
Content-Type: image/jpeg




Что такое multipart/form-data(Content-Disposition)? И как быть с пожирающей тексты формой? И может быть есть какое-нибудь пособие, которое навсегда избавит меня от подобных проблем? Предложите что-нибудь почитать.

--------------------
Что написал, то написал (Пилат)
PM ICQ Skype   Вверх
korob2001
Дата 4.9.2004, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61



Я уже писал о том как заливать картинки на сервер:
http://forum.vingrad.ru/index.php?showtopi...=0&#entry206593

Что почитать? Почитай perldoc CGI, так как с помощью этого модуля передача файлов становится гораздо эффективнее. Так же можно почитать книгу "Разраотка CGI приложений на Perl".

Удачи.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0575 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.