그러나 두 가지 변형이 더 있습니다.
소규모 시스템에는 설치 top하거나 htop설치할 수 없기 때문에 탐색 /proc은 항상 가능합니다.
작은 시스템에서도 당신은 shell...
ㅏ 껍질다른! (bash 만 아님)
이것은 lolotux 스크립트 와 정확히 동일 하지만 grep, awk또는에 대한 포크가 없습니다 ps. 이것은 훨씬 빠릅니다!
그리고 세게 때리다 가장 가난한 사람 중 하나입니다 껍질 성능과 관련하여이 스크립트가 제대로 실행되도록하기 위해 약간의 작업이 수행되었습니다. 대시, 비지 박스그리고 다른 것. 그런 다음 ( Stéphane Chazelas 덕분에 ) 다시 훨씬 더 빨리됩니다!
#!/bin/sh
# Get current swap usage for all running processes
# Felix Hauri 2016-08-05
# Rewritted without fork. Inspired by first stuff from
# Erik Ljungstrom 27/05/2011
# Modified by Mikko Rantalainen 2012-08-09
# Pipe the output to "sort -nk3" to get sorted output
# Modified by Marc Methot 2014-09-18
# removed the need for sudo
OVERALL=0
rifs=`printf ': \t'`
for FILE in /proc/[0-9]*/status ;do
SUM=0
while IFS="$rifs" read FIELD VALUE ;do
case $FIELD in
Pid ) PID=$VALUE ;;
Name ) PROGNAME="$VALUE" ;;
VmSwap ) SUM=$((SUM=${VALUE% *})) ;;
esac
done <$FILE
[ $SUM -gt 0 ] &&
printf "PID: %9d swapped: %11d KB (%s)\n" $PID $SUM "$PROGNAME"
OVERALL=$((OVERALL+SUM))
done
printf "Total swapped memory: %14u KB\n" $OVERALL
큰 따옴표를 잊어 버리지 마십시오 "$PROGNAME"! Stéphane Chazelas의 의견 참조 :
read FIELD PROGNAME < <(
perl -ne 'BEGIN{$0="/*/*/../../*/*"} print if /^Name/' /proc/self/status
)
echo $FIELD "$PROGNAME"
echo $PROGNAME현명한 시스템에서 큰 따옴표없이 시도 하지 말고 현재 쉘을 죽일 준비를하십시오!
그리고 펄 버전
이것이 간단한 스크립트 가 아니기 때문에 보다 효율적인 언어를 사용하여 전용 도구를 작성해야합니다.
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
my ($tot,$mtot)=(0,0);
my %procs;
my %opts;
getopt('', \%opts);
sub sortres {
return $a <=> $b if $opts{'p'};
return $procs{$a}->{'cmd'} cmp $procs{$b}->{'cmd'} if $opts{'c'};
return $procs{$a}->{'mswap'} <=> $procs{$b}->{'mswap'} if $opts{'m'};
return $procs{$a}->{'swap'} <=> $procs{$b}->{'swap'};
};
opendir my $dh,"/proc";
for my $pid (grep {/^\d+$/} readdir $dh) {
if (open my $fh,"</proc/$pid/status") {
my ($sum,$nam)=(0,"");
while (<$fh>) {
$sum+=$1 if /^VmSwap:\s+(\d+)\s/;
$nam=$1 if /^Name:\s+(\S+)/;
}
if ($sum) {
$tot+=$sum;
$procs{$pid}->{'swap'}=$sum;
$procs{$pid}->{'cmd'}=$nam;
close $fh;
if (open my $fh,"</proc/$pid/smaps") {
$sum=0;
while (<$fh>) {
$sum+=$1 if /^Swap:\s+(\d+)\s/;
};
};
$mtot+=$sum;
$procs{$pid}->{'mswap'}=$sum;
} else { close $fh; };
};
};
map {
printf "PID: %9d swapped: %11d (%11d) KB (%s)\n",
$_, $procs{$_}->{'swap'}, $procs{$_}->{'mswap'}, $procs{$_}->{'cmd'};
} sort sortres keys %procs;
printf "Total swapped memory: %14u (%11u) KB\n", $tot,$mtot;
중 하나와 함께 실행할 수
-c sort by command name
-p sort by pid
-m sort by swap values
by default, output is sorted by status's vmsize
