Very interesting...  Running this script it dies at the 800MB
attempt.  However, watching this process in top, memory usage is actually
double the amount that is being tested.  In top, the last memory amount
prior to it dying is 1400MB.

Scott Nipp
Phone:  (214) 858-1289
E-mail:  [EMAIL PROTECTED]
Web:  http:\\ldsa.sbcld.sbc.com



-----Original Message-----
From: david [mailto:[EMAIL PROTECTED] 
Sent: Thursday, December 04, 2003 2:17 PM
To: [EMAIL PROTECTED]
Subject: RE: 64 bit Perl memory test...


Scott V Nipp wrote:

> Will this tell me how much memory is used at the point of failure?

no, it does not. you will have to do that manually. either watch the script 
in top or ps or write something like:

#!/usr/bin/perl -w
use strict;

my $m = 1024 * 1000;
my $i = '';

for($m * 100, $m * 200, $m * 300, $m * 400,
    $m * 500, $m * 600, $m * 700, $m * 800){

    print "Allocating $_ bytes memory...\n";

    $i = 0 x $_;

    undef $i;
}

__END__

the amount of memory that this script is capable of utilizing at the time of

testing does not equal to the amount of memory that are allowed by the OS 
though. for example, if the script failed when asking for 800mb of memory, 
does it mean the OS is unable to find 800mb of memory or does it mean the 
process is not allowed to allocate this much memory? you might have better 
luck finding a tool designed for testing memory allocation for your 
machine. 

david
-- 
s,.*,<<,e,y,\n,,d,y,.s,10,,s
.ss.s.s...s.s....ss.....s.ss
s.sssss.sssss...s...s..s....
...s.ss..s.sss..ss.s....ss.s
s.sssss.s.ssss..ss.s....ss.s
..s..sss.sssss.ss.sss..ssss.
..sss....s.s....ss.s....ss.s

,....{4},"|?{*=}_'y!'+0!$&;"
,ge,y,!#:$_(-*[./<[EMAIL PROTECTED],b-t,
.y...,$~=q~=?,;^_#+?{~,,$~=~
y.!-&*-/:[EMAIL PROTECTED] ().;s,;,
);,g,s,s,$~s,g,y,y,%,,g,eval

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to