Upload file

[Xel'[Naga]]

Вот код из скрипта:
...
open OUTFILE, ">$upload" || die "Can't upload $upload";
binmode OUTFILE;
while ($bytesread = read($filename,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
...
Цикл тут не запускается.
Ну помогите ПЛИЗЗЗЗ.

[Хрюндик]

Попробуй вот так :
open OUTFILE, ">$upload" || die "Can't upload $upload";
binmode OUTFILE;
while (read($filename,$buffer,16_384)) { #лучше пусть больше качает
print OUTFILE $buffer;
}
close OUTFILE;

Кстати, дай лучше не используй ... А то будет ошибка 500

И еще скажи как ты имя файла выживил?

[Xel'[Naga]]

Выше написано как.
...
@file = split /\\|\//,$bin;
в последней ячейке масива @file содержится имя файла
т.е. $filename = $file[$#file]
...

[Хрюндик]

Дак че, совет-то помог хоть?

[Xel'[Naga]]

Нифига ;[

[Хрюндик]

можеть мне скрипт выложить? Там его модифицируешь иль вырежешь че надо?

[Xel'[Naga]]

Да я уже всё сделал. Спасибо всем. Все свободны

[Хрюндик]

Сорри, а в чем трабла была? просто интересно

[Xel'[Naga]]

Я открыл файл на локанльной машине и написал
binmode (FROMFILE);