|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Evgeni Kubachev 2:5030/1509 19 Feb 2005 14:04:15 To : Dmitry Alexandrow Subject : upload -------------------------------------------------------------------------------- Здорово, Dmitry !!! 04 Фев 05 01:36, Dmitry Alexandrow напечатал для Dmitry Kuzmin: >>> Отправляю через форму имя файла, который необходимо закачать на >>> сервер в папку upload. СGI-скрипт получает имя файла. Как >>> реализовать закачку этого файла в нужную папку на сервере? ---[ skip ]--- DA> у меня так DA> не помню насколько работоспособно DA> 3 года назад делалось DA> upload.cgi ---[ skip ]--- DA> sub save_file { DA> my $fsize; DA> open (AAA, ">".$save_path."/".$file); DA> while (<$file_name>) { DA> print AAA; DA> $fsize += length; DA> }; DA> close (AAA); DA> }; DA> === Конец цитаты === в том то и дело, что такой метод не позволяет корректно сохранять бинарные файлы (exe, dll) - они попросту портятся. Прощай ! np: Military Jane - [1996] Blackest Paint Colored Brush - 01 - Intro + Neverman --- GoldED+/W32 1.1.5-020726 * Origin: ...глупый мотылек догорал на свечке... (2:5030/1509) Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/280342170f5e.html, оценка из 5, голосов 10
|