> It was Thursday, December 04, 2003 when Bakken, Luke took the
> soap box, saying:
> : > 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;
> : }
>
> The original poster was having trouble with data from Oracle, not the
> filesystem. I'm not quite sure what you're trying to demonstrate
> here.
>
> Casey West
It's bad enough that your spamming the list with useless posts, but here
you're demonstrating a complete inability to read what a person wants.
He said:
"Basically, I would like help with a Perl test script to use memory
until Perl reaches it's memory limit."
That is exactly what this bit of code does - it fills $bigbuf with data
in 16K chunks until the OS kills it for using too much memory.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
