某サーバのメモリ使用量に納得がいかないので、わかりやすく表示するワンライナーを書いた。 # cat /proc/meminfo |perl -E 'while(<>){m!^(.+):\s*(\d+)! and $h{$1}=$2} END { @active=qw/MemFree Active(file) Inactive(file) Unevictable Active(anon) I…