уважаемый MpaK999

[soper]

Уважаемый MpaK999 вы написали пример скрипта котороый обрабатывает запрос
type=file,


---------
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


Будьте любезны написать пример, котрый сразу будет готов
к работе. Не сочтите за наглость, заранее спасибо

[MpaK999]

Оригинал написал(а) 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";

ну а чтобы много не разглагольствовать (голова болит с похмелья) прикрепляю файл зип с примером