今日のワンライナー

# top -b | grep ^Mem: | /usr/local/bin/perl -MList::Util=reduce -ple '@n=/(\d+)/g;END{print reduce {$a+$b} @n}'

メモリ全部でいくつあるんだっけみたいな。 FreeBSD のばあい。 Linux のばあいは top -b -n 1 などとする。 reduce を使ってみたかっただけだな・・。