RE: 64 bit Perl memory test...

[NIPP, SCOTT V (SBCSI)]

        Nope...  No /dev/zero either in 11i.

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



-----Original Message-----
From: Bakken, Luke [mailto:[EMAIL PROTECTED] 
Sent: Thursday, December 04, 2003 1:25 PM
To: NIPP, SCOTT V (SBCSI); [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: 64 bit Perl memory test...


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

See code.

> > Unfortunately, there is no /dev/random in HP-UX.

But there is a /dev/zero

use strict;
$|++;
my $mem;
my $bigbuf;
my $buf;
open IN, '/dev/zero' or die "Can't open random device: $!";
while( $mem += read(IN, $buf, 1048576) ) {
        print "$mem\n";
        $bigbuf .= $buf;
}

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