vi tl
#!/usr/bin/perl -w
use strict;
$|++;
my $host=`/bin/hostname`;
chomp $host;
while(1) {
open(LOAD,"/proc/loadavg") || die "Couldn't open /proc/loadavg: $!\n";
my @load=split(/ /,<LOAD>);
close(LOAD);
print "\033]0;";
print "$host:(아이피) $load[0] $load[1] $load[2] at ", scalar(localtime);
print "\007";
sleep 5;
}
실행권한 주고
./tl &
로그아웃시 종료하기 위해
echo 'killall tl > /dev/null 2>&1' >> /root/.bash_logout
|