Unfortunately, there is no /dev/random in HP-UX. 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 9:36 AM To: NIPP, SCOTT V (SBCSI); [EMAIL PROTECTED] Subject: RE: 64 bit Perl memory test... > how they were monitoring and/or determining this. Basically, > I would like > help with a Perl test script to use memory until Perl reaches > it's memory > limit. This will help me to know when I have things right so > I don't have > to keep going back to the end users and tell them "OK, try it now". > Thanks in advance for any help. use strict; my $bigbuf; my $buf; open IN, '/dev/random' or die "Can't open random device: $!"; while( read(IN, $buf, 16384) > 0 ) { $bigbuf .= $buf; } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
