размер файла

[loskut]

Как ограничить размер загружаемрого файла средствами CGI.pm

[JPEG]

Поиск р`улит.

[JPEG]

Поиск не срулил...

$bin = param('file');

open OUT, ">file.bmp"
binmode OUT;

while ($bytesread=read($bin,$buffer,1024) and $bytesread <= 500000) {
print OUT $buffer
}

close OUT;

Ограничение 500000;

Может можно и по-другому, но не встречал.

З.Ы. Можно, наверное, через Апачу ограничивать, тока не помню (и, походу, не знаю) как