メモリをがんがん消費する Perl ワンライナー

メモリ使用率監視のテストをするために、メモリをがんがん消費する Perl ワンライナーを書いてみた。

perl -e 'while(1){$i++;$h{$i}=$i}' 

追記(2016/03/24):
仮想化時代はこちら

perl -e '$hn=`hostname`; while(1){$i++;$h{$i}=$i . " $hn" . 'x'x4000 }'