perl -e 'use Storable qw(lock_retrieve); $data = lock_retrieve("/etc/initial_usage_correction"); use Data:[:D]umper; print Dumper($data)';
cat /etc/sysmond.ph
test:/home/login # perl -e 'use Storable qw(lock_retrieve); $data = lock_retrieve("/etc/initial_usage_correction"); use Data:[[:D]]umper; print Dumper($data)';
$VAR1 = {
'/' => 1160228,
'__timestamp' => 1205157946,
'/var/storage' => 5421456,
'/var/log' => 6612516
};
test:/home/login # cat /etc/sysmond.ph
$VAR1 = {
'Internal::CpuLoad' => [
'0.25',
'0.18',
'0.11'
],
'Internal::CpuUsage' => {
'cpu_0' => '4.64718947548266',
'cpu_1' => '0.583090379008752',
'cpu_total' => '2.63585793752674'
},
'Internal:[[:D]]iskUsage' => {
'/' => {
'blocks_avail' => 4016288,
'blocks_total' => 5542276,
'blocks_usage' => 24,
'est_blocksfullin' => '17901953',
'est_blockspersec' => '0.22',
'inodes_avail' => 663871,
'inodes_total' => 704512,
'inodes_usage' => 6
},
'/var/log' => {
'blocks_avail' => 118882556,
'blocks_total' => 125552992,
'blocks_usage' => 0,
'est_blocksfullin' => '-948694279',
'est_blockspersec' => '0.04',
'inodes_avail' => 32406576,
'inodes_total' => 32407552,
'inodes_usage' => 0
},
'/var/storage' => {
'blocks_avail' => 90401684,
'blocks_total' => 95845360,
'blocks_usage' => 1,
'est_blocksfullin' => '-1',
'est_blockspersec' => '0.01',
'inodes_avail' => 24732955,
'inodes_total' => 24739840,
'inodes_usage' => 0
}
},
'Internal::ItfUsage' => {
'eth0' => [
'17822.8537254547',
'733033.94984711'
],
'eth1' => [
'732862.906976815',
'17572.4885575558'
],
'eth2' => [
'118.783474226794',
'0'
]
},
'Internal::MemSwapUsage' => {
'mem_pct' => '31.97',
'mem_total' => 1034976,
'mem_used' => 330908,
'swap_pct' => '14.89',
'swap_total' => 1052248,
'swap_used' => 156648
},
'lastupdate' => 1206788271
};
test:/home/login #