membuat script untuk melihat memory usage di FreeBSD
Untuk pengguna FreeBSD berikut script untuk melihat memory usage di freebsd
Kita create file bernama free (nama bebas)
#cd /usr/local/bin
#touch free
#chmod 755 free
Kemudian kita edit file free dan masukkan script berikut :
#vi free
kemudian tekan “i”,dan masukkan script dibawah
#!/usr/bin/perl
##
## freebsd-memory — List Total System Memory Usage
## Copyright (c) 2003-2004 Ralf S. Engelschall <rse@engelschall.com>
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
## 1. Redistributions of source code must retain the above copyright
## notice, this list of conditions and the following disclaimer.
## 2. Redistributions in binary form must reproduce the above copyright
## notice, this list of conditions and the following disclaimer in the
## documentation and/or other materials provided with the distribution.
##
## THIS SOFTWARE IS PROVIDED BY AUTHOR AND CONTRIBUTORS “AS IS” AND
## ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
## ARE DISCLAIMED. IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
## FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
## DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
## OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
## OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
## SUCH DAMAGE.
##
# query the system through the generic sysctl(8) interface
# (this does not require special priviledges)
my $sysctl = {};
my $sysctl_output = `/sbin/sysctl -a`;
foreach my $line (split(/\n/, $sysctl_output)) {
if ($line =~ m/^([^:]+):\s+(.+)\s*$/s) {
$sysctl->{$1} = $2;
}
}
# round the physical memory size to the next power of two which is
# reasonable for memory cards. We do this by first determining the
# guessed memory card size under the assumption that usual computer
# hardware has an average of a maximally eight memory cards installed
# and those are usually of equal size.
sub mem_rounded {
my ($mem_size) = @_;
my $chip_size = 1;
my $chip_guess = ($mem_size / 8 ) – 1;
while ($chip_guess != 0) {
$chip_guess >>= 1;
$chip_size <<= 1;
}
my $mem_round = (int($mem_size / $chip_size) + 1) * $chip_size;
return $mem_round;
}
# determine the individual known information
# NOTICE: forget hw.usermem, it is just (hw.physmem – vm.stats.vm.v_wire_count).
# NOTICE: forget vm.stats.misc.zero_page_count, it is just the subset of
# vm.stats.vm.v_free_count which is already pre-zeroed.
my $mem_hw = &mem_rounded($sysctl->{“hw.physmem”});
my $mem_phys = $sysctl->{“hw.physmem”};
my $mem_all = $sysctl->{“vm.stats.vm.v_page_count”} * $sysctl->{“hw.pagesize”};
my $mem_wire = $sysctl->{“vm.stats.vm.v_wire_count”} * $sysctl->{“hw.pagesize”};
my $mem_active = $sysctl->{“vm.stats.vm.v_active_count”} * $sysctl->{“hw.pagesize”};
my $mem_inactive = $sysctl->{“vm.stats.vm.v_inactive_count”} * $sysctl->{“hw.pagesize”};
my $mem_cache = $sysctl->{“vm.stats.vm.v_cache_count”} * $sysctl->{“hw.pagesize”};
my $mem_free = $sysctl->{“vm.stats.vm.v_free_count”} * $sysctl->{“hw.pagesize”};
# determine the individual unknown information
my $mem_gap_vm = $mem_all – ($mem_wire + $mem_active + $mem_inactive + $mem_cache + $mem_free);
my $mem_gap_sys = $mem_phys – $mem_all;
my $mem_gap_hw = $mem_hw – $mem_phys;
# determine logical summary information
my $mem_total = $mem_hw;
my $mem_avail = $mem_inactive + $mem_cache + $mem_free;
my $mem_used = $mem_total – $mem_avail;
# information annotations
my $info = {
“mem_wire” => ‘Wired: disabled for paging out’,
“mem_active” => ‘Active: recently referenced’,
“mem_inactive” => ‘Inactive: recently not referenced’,
“mem_cache” => ‘Cached: almost avail. for allocation’,
“mem_free” => ‘Free: fully available for allocation’,
“mem_gap_vm” => ‘Memory gap: UNKNOWN’,
“mem_all” => ‘Total real memory managed’,
“mem_gap_sys” => ‘Memory gap: Kernel?!’,
“mem_phys” => ‘Total real memory available’,
“mem_gap_hw” => ‘Memory gap: Segment Mappings?!’,
“mem_hw” => ‘Total real memory installed’,
“mem_used” => ‘Logically used memory’,
“mem_avail” => ‘Logically available memory’,
“mem_total” => ‘Logically total memory’,
};
# print system results
printf(“SYSTEM MEMORY INFORMATION:\n”);
printf(“mem_wire: %12d (%7dMB) [%3d%%] %s\n”, $mem_wire, $mem_wire / (1024*1024), ($mem_wire / $mem_all) * 100, $info->{“mem_wire”});
printf(“mem_active: + %12d (%7dMB) [%3d%%] %s\n”, $mem_active, $mem_active / (1024*1024), ($mem_active / $mem_all) * 100, $info->{“mem_active”});
printf(“mem_inactive:+ %12d (%7dMB) [%3d%%] %s\n”, $mem_inactive, $mem_inactive / (1024*1024), ($mem_inactive / $mem_all) * 100, $info->{“mem_inactive”});
printf(“mem_cache: + %12d (%7dMB) [%3d%%] %s\n”, $mem_cache, $mem_cache / (1024*1024), ($mem_cache / $mem_all) * 100, $info->{“mem_cache”});
printf(“mem_free: + %12d (%7dMB) [%3d%%] %s\n”, $mem_free, $mem_free / (1024*1024), ($mem_free / $mem_all) * 100, $info->{“mem_free”});
printf(“mem_gap_vm: + %12d (%7dMB) [%3d%%] %s\n”, $mem_gap_vm, $mem_gap_vm / (1024*1024), ($mem_gap_vm / $mem_all) * 100, $info->{“mem_gap_vm”});
printf(“————– ———— ———– ——\n”);
printf(“mem_all: = %12d (%7dMB) [100%%] %s\n”, $mem_all, $mem_all / (1024*1024), $info->{“mem_all”});
printf(“mem_gap_sys: + %12d (%7dMB) %s\n”, $mem_gap_sys, $mem_gap_sys / (1024*1024), $info->{“mem_gap_sys”});
printf(“————– ———— ———–\n”);
printf(“mem_phys: = %12d (%7dMB) %s\n”, $mem_phys, $mem_phys / (1024*1024), $info->{“mem_phys”});
printf(“mem_gap_hw: + %12d (%7dMB) %s\n”, $mem_gap_hw, $mem_gap_hw / (1024*1024), $info->{“mem_gap_hw”});
printf(“————– ———— ———–\n”);
printf(“mem_hw: = %12d (%7dMB) %s\n”, $mem_hw, $mem_hw / (1024*1024), $info->{“mem_hw”});
# print logical results
printf(“\n”);
printf(“SYSTEM MEMORY SUMMARY:\n”);
printf(“mem_used: %12d (%7dMB) [%3d%%] %s\n”, $mem_used, $mem_used / (1024*1024), ($mem_used / $mem_total) * 100, $info->{“mem_used”});
printf(“mem_avail: + %12d (%7dMB) [%3d%%] %s\n”, $mem_avail, $mem_avail / (1024*1024), ($mem_avail / $mem_total) * 100, $info->{“mem_avail”});
printf(“————– ———— ———– ——\n”);
printf(“mem_total: = %12d (%7dMB) [100%%] %s\n”, $mem_total, $mem_total / (1024*1024), $info->{“mem_total”});
setelah itu ketik “:wq:”
setelah selesai jalankan script dengan cara :
#free
SYSTEM MEMORY INFORMATION:
mem_wire: 141565952 ( 135MB) [ 13%] Wired: disabled for paging out
mem_active: + 138739712 ( 132MB) [ 13%] Active: recently referenced
mem_inactive:+ 408956928 ( 390MB) [ 39%] Inactive: recently not referenced
mem_cache: + 24576 ( 0MB) [ 0%] Cached: almost avail. for allocation
mem_free: + 341405696 ( 325MB) [ 33%] Free: fully available for allocation
mem_gap_vm: + 311296 ( 0MB) [ 0%] Memory gap: UNKNOWN
————– ———— ———– ——
mem_all: = 1031004160 ( 983MB) [100%] Total real memory managed
mem_gap_sys: + 18984960 ( 18MB) Memory gap: Kernel?!
————– ———— ———–
mem_phys: = 1049989120 ( 1001MB) Total real memory available
mem_gap_hw: + 23752704 ( 22MB) Memory gap: Segment Mappings?!
————– ———— ———–
mem_hw: = 1073741824 ( 1024MB) Total real memory installed
SYSTEM MEMORY SUMMARY:
mem_used: 323354624 ( 308MB) [ 30%] Logically used memory
mem_avail: + 750387200 ( 715MB) [ 69%] Logically available memory
————– ———— ———– ——
mem_total: = 1073741824 ( 1024MB) [100%] Logically total memory
proxy# free
SYSTEM MEMORY INFORMATION:
mem_wire: 141520896 ( 134MB) [ 13%] Wired: disabled for paging out
mem_active: + 138743808 ( 132MB) [ 13%] Active: recently referenced
mem_inactive:+ 409022464 ( 390MB) [ 39%] Inactive: recently not referenced
mem_cache: + 24576 ( 0MB) [ 0%] Cached: almost avail. for allocation
mem_free: + 341381120 ( 325MB) [ 33%] Free: fully available for allocation
mem_gap_vm: + 311296 ( 0MB) [ 0%] Memory gap: UNKNOWN
————– ———— ———– ——
mem_all: = 1031004160 ( 983MB) [100%] Total real memory managed
mem_gap_sys: + 18984960 ( 18MB) Memory gap: Kernel?!
————– ———— ———–
mem_phys: = 1049989120 ( 1001MB) Total real memory available
mem_gap_hw: + 23752704 ( 22MB) Memory gap: Segment Mappings?!
————– ———— ———–
mem_hw: = 1073741824 ( 1024MB) Total real memory installed
SYSTEM MEMORY SUMMARY:
mem_used: 323313664 ( 308MB) [ 30%] Logically used memory
mem_avail: + 750428160 ( 715MB) [ 69%] Logically available memory
————– ———— ———– ——
mem_total: = 1073741824 ( 1024MB) [100%] Logically total memory
greetz to :
1. Ralf S. Engelschall <rse@engelschall.com> –> empunya script
2. Balikpapan Open Source Society