vi tl
#!/usr/bin/perl -w
use strict;
$|++;
$|++;
my $host=`/bin/hostname`;
chomp $host;
chomp $host;
while(1) {
open(LOAD,"/proc/loadavg") || die "Couldn't open /proc/loadavg: $!\n";
my @load=split(/ /,<LOAD>);
close(LOAD);
close(LOAD);
print "\033]0;";
print "$host:(아이피) $load[0] $load[1] $load[2] at ", scalar(localtime);
print "\007";
sleep 5;
}
print "$host:(아이피) $load[0] $load[1] $load[2] at ", scalar(localtime);
print "\007";
sleep 5;
}
실행권한 주고
./tl &
./tl &
로그아웃시 종료하기 위해
echo 'killall tl > /dev/null 2>&1' >> /root/.bash_logout
echo 'killall tl > /dev/null 2>&1' >> /root/.bash_logout
게시판 목록
팁게시판
디자인과 관련된 유용한 정보를 공유하세요.
질문은 상단의 QA에서 해주시기 바랍니다.
질문은 상단의 QA에서 해주시기 바랍니다.
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 2 | 21년 전 | 3215 | ||
| 1 | 22년 전 | 4312 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기