|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Savitsky 2:450/102.1 12 Mar 2003 17:43:49
To : All
Subject : Re: upload binary file
--------------------------------------------------------------------------------
.RFC-X-Accept-Language: en-us, en
From: Andrey Savitsky <andrey.s@belcaf.minsk.by>
Sergey Novikov wrote:
[skiped]
> open (SAVE, ">$upload_dir$short_name") || die $!;
> @data = <$cgi{'filename'}>;
> foreach $dt (@data)
> {
> print SAVE $data;
> }
> close(SAVE);
> }
если это не опечатка уже в письме, то тебя спасет
print SAVE $dt;
хотя pаз ты говоpишь, что pазмеp созданого файла
пpавильный, то вpяд ли дело в этом...
Андpей
--- ifmail v.2.15
* Origin: BelCAF News Server (2:450/102.1@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
