Thursday, May 20, 2010

memory/cpu stress test perl script

#!/usr/bin/perl

use strict;
use warnings;

fork for 1 .. 5;
for (1 .. 10000) {
my $a = "xxxxx" x int rand 10_000_000;
my $b = ~$a;
my $c = reverse $b;
}

Labels: , ,

0 Comments:

Post a Comment

<< Home