Здравствуйте, Loginoff.
> Можете глянуть на своей системе вот такой примерчик(при условии
> что у вас есть свободные 1.2Gb - либо измените длину строки):
...
> sub get_memory {
> open my $fh, "/proc/$$/statm" || return;
> my $mem = (split( /\s+/, <$fh> ))[1] * PAGESIZE();
> close $fh;
> return $mem;
> }Вы хотите сказать, на своей Линукс-системе? :-) -- С уважением, Михаил mailto:[email protected] -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
