file upload

[synthez]

написал скрипт который, закачивает файл на сервер, но не могу избавиться от чипухи (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;

[NeoNox]

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

[synthez]

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

[NeoNox]

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!";

[synthez]

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

Тэнкс!