The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Как из формы загрузить файл на сервер скриптом на Perl"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы WEB технологии (Public)
Изначальное сообщение [Проследить за развитием треда]

"Как из формы загрузить файл на сервер скриптом на Perl"
Сообщение от Nick1 emailИскать по авторуВ закладки on 10-Ноя-02, 21:58  (MSK)
Здравствуйте. Требуется из формы на сервер картинки загружать.
нашёл вот скрипт, да что-то не работает, как не кручусь не хватает
моих познаний чтобы запустить. Может подскажет кто ошибку, если не
лень, или ссылку какую полезную.  Ошибки выделил как коментарии,
а ???? непонятные места.
Заранее благодарен.

#!/usr/bin/perl -w -T
#file_load
$datafile="foto.txt";
$fotodir=".";#??????
######################################################################
print "Content-Type: text/html\n\n;
if($ENV{'REQUEST_METHOD'} eq 'GET'){$query=$ENV{'QUERY_STRING'};}
elsif($ENV{'REQUEST_METHOD'} eq 'POST')
{sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});}
######################################################################

if($query eq ' ')
{
#forma
}
else
{
      if($ENV{'CONTENT_TYPE'} =~/multipart/)
  {
      ($bound)=($ENV{'CONTENT_TYPE'} =~/boundary=(\S+)/);
      @parts=split(/\n--$bound(-)*/,$query);
      @parts=grep($_ ne ' ' ,@parts);
            foreach(@parts)
            {
   ($header,$body)=split(/\n\s*\n/,$_,2);
   ($name)=(/name=\"([^\"]*)\"/);
   $body=~ s/\n$//;
       $body=~ s/\r$//;
       ($filename)=(/filename=\"([^\"]*)\"/);
   if($name eq 'username'){$username=$body;}
   if($name eq 'usercity'){$usercity=$body;}
   if($name eq 'usercomment'){$usermessage=$body;}
   if($name eq 'userphoto'){$userphoto=$body;$userphotofilename=$filename;}
           }
       }
  
         else #????????
         {
   $userphotofilename1=$userphotofilename;
      $filedup=0;
            while(-e "$fotodir/$userphotofilename1")#error: syntax error, scalar found where operator expected
     {
          $userphotofilename1="$filedup_$userphotofilename";#error: scalar found where operator expected
        $filedup++;
           }
   open(F,">$fotodir/$userphotofilename1")|| print_err("Cannot open log: $! ");#error: string,bareword found where operator expected
   print F $userphoto;
   close(F);
   #############################################################################
      open(DATA,">>$datafile");#error: string found where operator expected
      print DATA "$username";#error: string found where operator expected
   print DATA "$usercity";#error: string found where operator expected
      print DATA "$userphotofilename1";#error: string found where operator expected
      print DATA "$usercomment";#error: scalar, string found where operator expected
      close(DATA);
        }
  }
  
  

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "RE: Как из формы загрузить файл на сервер скриптом на Perl"
Сообщение от Nick1 emailИскать по авторуВ закладки on 10-Ноя-02, 22:24  (MSK)
Нашёл тут в FAQ скрипт похожий, извините, не посмотрел сразу.
  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру