/var 공간이 80% 넘었을 때 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.?"); }