[Perl] Новичкам: задаем вопросы

#11

06.08.2007, 22:04

flipper

Участник форума

Регистрация: 05.09.2006

Сообщений: 184

Провел на форуме:
888851

Репутация: 203

Код:

sub upload(){     
my $req = POST $URL,
      Content_Type => 'multipart/form-data',                  
      Content => [Content_Type => 'form-data',         
      filename => [$nam],        ];   
  
my $res=LWP::UserAgent->new->request($req);         $content = $res->content;         
if ($content=~/загружен на сайт./){print "$name - OK\n"}  }

Выше представленная функция загружает файл на сайт через POST запрос.
Однако есть одна неприятность - при загрузке жрет очень много памяти (при загрузке 20mb файла лопает ~500mb оперативы)
Внимание вопрос: как убрать ограничение на загрузку файла и при этом, сделать что бы памяти столько не жрал ???
Выслушаю любые советы и предложения, возможно даже применение другого языка программирования... (желательно что бы на *nix'aх работало)

Последний раз редактировалось flipper; 06.08.2007 в 22:06..