при

%q = new CGI -> Vars;

и

while ($bytesread = read($q{'file'}, $buf, 1024))
{
print A $buf;
}

файл получается размером 0 байт. если заменить

%q = new CGI -> Vars;
на
$q{'file'}=param('file');
файл получается нормальный. Как бы сделать так, чтобы работал первый случай?

• perl - CGI.pm и file upload,ACCA, 04:10 , 24-Янв-06

>%q = new CGI -> Vars;
>
>и
>
>while ($bytesread = read($q{'file'}, $buf, 1024))

$q = new CGI->Vars;
while ($bytesread = read ($$q{'file'}, $buf, 1024))

man perlref
man CGI