ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Antonenko                     2:452/112.37   17 Jul 2002  21:00:21
 To : All
 Subject : Трабла с закачкой на файла на сервер
 -------------------------------------------------------------------------------- 
 

 
 
   У меня вот тут такой вопрос по сабжевой теме.
   Используя пример из Перла я выколупал такой код
 
 use CGI qw(:standard);
 
 print header();
 
 print start_multipart_form(),
     "Enter the file to process:",
     filefield('filename','',45),
     br,
     reset,submit('submit','Process File'),
     endform;
 
 if (my $file = param('filename')) {
     my $tmpfile=tmpFileName($file);
     close $file;
     rename($tmpfile,"1.dat");
 }
 
  Он работает, но когда я пытаюсь ему напрямую задать имя файла или то
  что получаю через post метод из формы, он не работает. В чем тут дело?
 
  Т.е. я пишу так:
  if (my $file = hashRef->{'File'}) {
   my $tmpfile=tmpFileName($file);
   close $file;
   rename($tmpfile,"1.dat";
  }
 
  enctype="multipart/form-data" в форме указан. Правда там есть еще и поля ввода 
 и комбобокс.
  HTML код пишу вручную в Перле и переходить на что-то типа приведенного вверху
 примера пока не хочу.
 
  В общем подскажите, где я не прав.
 
                 C уважением, Alexey Antonenko.
 --- УТВЕРЖДАЮ. MSG-редактор капитан 2.5 ранга Голд Дедович фор ДОС UNREG
  * Origin: Муж - этот святой человек со всеми удобствами! (2:452/112.37)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор