Цитата:
Оригинал написал(а) soper
use CGI;
$fromfile=param('fromfile');
&Load("catalog/", $filename, $fromfile);
sub Load{ #0-dir, 1-file, 2-file name
$file_new = $_[0].$_[1];
open A, "+>$file_new";
binmode A;
binmode $_[2];
while ($bytesread = read($_[2], $buf, 1024)){
print A $buf;
}
close A;
}
а так как я не очень хорошо знаю перл возникли не большие
проблемы
1) если я правильно понял $fromfile=param{'fromfile'}
является не чем иным как чтение параметра queri_string
2)объясните пожалуйста что значит &Load("catalog/", $filename, $fromfile);
3) далее я не совсем понял, почему сервер выдаёт ошибку 500
Будьте любезны написать пример, котрый сразу будет готов
к работе. Не сочтите за наглость, заранее спасибо
|
1. да, т.е. тепеть в $fromfile лежит файл посланный из такого вида формы
<form method="post" action="upload.pl" enctype="multipart/form-data">
Файл: <input type="file" name="fromfile"><br>
<input type="submit" name="Submit" value="Загрузить">
</form>
2. Это вызов процедуры Load первый параметр куда ложить относительно cgi-bin (каталог), второй желаемое имя, третий сам файл
3. ошибка потому как скрипт просто срабатывает и не выдает браузеру строчку вида print "Content-type: text/html\n\n";
ну а чтобы много не разглагольствовать (голова болит с похмелья) прикрепляю файл зип с примером