ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael B. Babakov                   2:5020/400     15 Feb 2001  17:23:15
 To : All
 Subject : Moderatorial [offtopic] Re: UpLoad
 -------------------------------------------------------------------------------- 
 

 Andrey Fedorov wrote:
 
 > 
 > Трям - здравствуйте, All!!!
 > 
 > Есть, скрипт:
 > === Cut ===
 > use strict;                                  # спасает от глупых ошибок
 > use Fcntl;                                   # O_EXCL, O_CREAT и O_WRONLY
 > use CGI       qw (:standard);                # читайте "perldoc CGI"
 > use CGI::Carp qw (fatalsToBrowser);          # вывод ошибок к browser-у
 > 
 > my $query = new CGI;
 > my $file_name = $query->param('file');
 > 
 > $_ = $file_name;
 > s/\w://;
 > s/([^\/\\]+)$//;
 > $_ = $1;
 > s/\.\.+//g;
 > s/\s+//g;
 > $file_name = $_;
 > 
 > open (FILE, ">c:\\$file_name") || die "can't open file";
 > binmode FILE;                              # включить binmode для Windows
 > print FILE while (<$file_name>);                # и скопировать данные в файл
 > close (FILE);
 > === Cut ===
 > 
 > Hо он почемy-то не работает, файлы создаются нyлевой длины, а всё содержимое
 > передаваемого файла записывается в файл CGItemp12345 (цифры зависят от времени
 > upload'а), в каталоге cgi-bin.
 > Форма на странице:
 > 
 > === Cut ===
 > <FORM METHOD="post" ACTION="cgi-bin/upload.cgi" ENCTYPE="multipart/form-data">
 > <B>Файл:</B>
 > <INPUT TYPE="file" NAME="file" SIZE=20 MAXLENGTH=80>
 > <INPUT TYPE="submit" VALUE="Закачать">
 > </FORM>
 > === Cut ===
 > 
 > OS: WinME, Server: EServ v2.94, Perl: ActivePerl v5.6.0.623
 > 
 > > Кyда копать?
 > 
 > ... WBR, Andrey ... [Team MAMI] ...
 
 [offtopic] - Hе по теме. В RU.CGI.PERL
 
 -- 
 С уважением,
   Михаил Бабаков
 
 --------------------------------
  Телефон: (8622) 919-595
  e-mail: M.Babakov@sochi.net.ru
  ICQ: 16442739
 --- ifmail v.2.15dev5
  * Origin: Technology Communication Centre, Sochi (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    UpLoad   Andrey Fedorov   14 Feb 2001 22:29:22   Moderatorial [offtopic] Re: UpLoad   Michael B. Babakov   15 Feb 2001 17:23:15