|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Wasiljev Alexander 2:5020/400 24 Oct 2000 14:44:25
To : All
Subject : input type=file
--------------------------------------------------------------------------------
Привет всем.
Такая проблема. Форма с сабжем. Ловится скриптом:
#########################
use CGI;
my $co=new CGI;
my $filename=$co->param('userfile');
my $file=$co->upload('userfile');
(my $towrite=$filename)=~s/(.*\\)*?//g;
open WRK_FILE,">/home/www/data/$towrite" or die "Error: $!";
while (<$file>)
{
print WRK_FILE $_;
}
close WRK_FILE or die "Error: $!";
############################
Если передаю ASCII-файл, то все гуд, а если BIN - проблема. Hапример, при
неизменном размере tar -tzf ругается на tar.gz файлы:" Unexpected end of
file"
Кто знает, в чем дело и как фиксить?
Al
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
