Forum Webscript.Ru

Программирование => Perl => Тема начата: synthez от 11 Марта 2004, 17:32:48

Название: file upload
Отправлено: synthez от 11 Марта 2004, 17:32:48

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

---------------------- у9ока89у89уг8г4
....

....
---------------------- у9ока89у89уг8г4

ну что-то типа такого...

ну как я знаю, сначало создаеться форма примерно такого вида:

fileupload.html
-----------------------

upload.pl:
-----------------
#!/usr/bin/perl

binmode(STDIN);
binmode(WR);

$length = $ENV{\'CONTENT_LENGTH\'};

open WR, "> file";
while (read(STDIN, $buf, $length)) {
print WR "$buf";
}
close WR;

Название: file upload
Отправлено: NeoNox от 11 Марта 2004, 17:40:27

1) FAQ
2) http://stein.cshl.org/WWW/software/CGI/#upload

Название: file upload
Отправлено: synthez от 11 Марта 2004, 17:52:02

я бы хотел понять, сам процесс закачки, а у Штэйна примеры его модуля.

Название: file upload
Отправлено: NeoNox от 11 Марта 2004, 17:59:45

1) [w]PFSEUpload[/w]
2) почувствуй разницу:
   open(FILE, "+>file") || die "Can\'t open!";
   binmode FILE;
   binmode STDIN;
   read(STDIN,$buf,$ENV{CONTENT_LENGTH});
   print FILE $buf || die "Can\'t write!";
   close(FILE) || die "Can\'t close!";

Название: file upload
Отправлено: synthez от 11 Марта 2004, 18:12:21

да точно, коротко теперь пойду от лишнего мусора избавляться и начала файла и конца.

Тэнкс!