80) { print "disk space is tightn"; system("rm /var/log/syslog.?"); }"> 80) { print "disk space is tightn"; system("rm /var/log/syslog.?"); }"> 80) { print "disk space is tightn"; system("rm /var/log/syslog.?"); }">
#!/usr/local/bin/perl -w
# /var 공간이 80% 를 넘었을때 오래된 syslog 화일을 제거해 줍니다.
$_=`df -k | grep /var`
$percent =~ /.*(d+)%/;
print "$percentn";
if ($percent > 80) {
print "disk space is tightn"; system("rm /var/log/syslog.?"); }