2011-11-06から1日間の記事一覧
メモリ使用率の話 #!/usr/bin/perl use strict; use warnings; my %meminfo = get_meminfo(); system("free"); my ($total, $free, $buffers, $cached) = @meminfo{'MemTotal', 'MemFree', 'Buffers', 'Cached'}; my $used = $total - ($free + $buffers + $…