|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexey Antonenko 2:452/112.37 18 Jul 2002 19:54:04
To : Artem Chuprina
Subject : Трабла с закачкой на файла на сервер
--------------------------------------------------------------------------------
Мои бортовые системы запеленговали, что в Четверг Июль 18 2002 13:48, Artem
Chuprina писал Alexey Antonenko:
AA>> У меня вот тут такой вопрос по сабжевой теме.
AA>> Используя пример из Перла я выколупал такой код
AA>> use CGI qw(:standard);
AA>> print header();
AA>> print start_multipart_form(),
AA>> "Enter the file to process:",
AA>> filefield('filename','',45),
AA>> br,
AA>> reset,submit('submit','Process File'),
AA>> endform;
AA>> if (my $file = param('filename')) {
AA>> my $tmpfile=tmpFileName($file);
AA>> close $file;
AA>> rename($tmpfile,"1.dat");
AA>> }
AA>> Он работает, но когда я пытаюсь ему напрямую задать имя файла или
AA>> то что получаю через post метод из формы, он не работает. В чем
AA>> тут дело?
AC> Вот этой фразы я не понял. Что значит "напрямую"? Hасколько я помню
AC> CGI.pm, он полученный из формы файл складывает в файловую систему и по
AC> param('filename') отдает имя файла, работающее по совместительству
AC> файлхендлом. Если ты не делаешь того же самого самостоятельно, то
AC> естественно, что оно не работает.
Хмм... этого то я и не делаю. И посему возникает следующий вопрос. Как получить
файлхендл имея только его имя и путь на диске юзера, не пользуясь param.
C уважением, Alexey Antonenko.
--- УТВЕРЖДАЮ. MSG-редактор капитан 2.5 ранга Голд Дедович фор ДОС UNREG
* Origin: А может он за трон закатился? (2:452/112.37)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Трабла с закачкой на файла на сервер