Perl Monk, Perl Meditation | |
PerlMonks |
Re: one-liner hogsby extremely (Priest) |
on Feb 01, 2001 at 03:59 UTC ( [id://55605]=note: print w/replies, xml ) | Need Help?? |
How about this for processor churn?
perl -e '$_="abcd"x100000;while(1){y/abcd/bcda/}' perl -e '@_=0..1000000;while(1){foreach(@_){++$_,--$_}}' perl -e '@_=0..100000;while(1){foreach(@_){$a=$_/++$_;--$_}}' The first exercises about about 8MB of memory fairly heavily.
Obviously you can tweak how much memory is eaten with monster number in there... HTH. --
In Section
Seekers of Perl Wisdom
|
|