Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как закачать файл на сервер через www

Аноним
Казалось бы, передавать в качестве параметра имя файла -
Делаю NMHTTP1.Post(MyURL,'filename=c:\autoexec.bat');
но в данном случае - КАК УКАЗАТЬ ЧТО ЭТО ФАЙЛ?
Параметр береться просто как значение.

Вот скрипт который обрабатывает закаченные файлы:
#!/usr/bin/perl -w

use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;

print header();
print start_html("Загрузка файла на mymesi.pp.ru");
print h1("File Upload");

print start_multipart_form(),
"Введите имя файла с путем:",
filefield('filename','',45),
br,
p,
reset,submit('submit','Послать'),
endform;

open(FTXT,">$ENV{DOCUMENT_ROOT}/file.tmp") or die ("$! Error");

if ($file = param('filename'))
{
while (<$file>)
{
print $_ . br;
print FTXT $_;
}
}
close FTXT;
print b(&quot;$file&quot;).br.&quot;\n&quot;;

print end_html;

Мож кто поможет примером?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог