如何编写一个perl脚本来实现定时清理文件系统空间

yejunlon

hi，all
如题，现在我想当/opt 目录的空间达到80%的时候，就就去删除/opt/software下的文件每天18:00检查一次，谁能指导一下？
要是可以，请帮忙写一下脚本。
另外，我想学一下脚本编程，以后也可以通过脚本来实现某些操作，看什么书合适点，对于脚本编程，了解几乎
为零，求指导！！


谢谢！！

只是一个红薯

@rubyish

yejunlon

回复 2# 只是一个红薯

如何@？！
我对这个不熟悉
   

mcshell

回复 1# yejunlon

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Path 'rmtree';
   
5. my $max_usage = "80";
   
6. sub Free_Space {
   
7.     my $max_usage = shift;
   
8.     my ( $os, $df, $free_usage, $free ) = $^O;
   
9.     if ( $os eq "linux" ) {
   
10.         $df = `df -h /opt 2>/dev/null`;
    
11.     }
    
12.     else {
    
13.         $df = `df -g /opt 2>/dev/null`;
    
14.     }
    
15.     while ( $df =~ /(\d+)%.*?(\/\S*)/g ) {
    
16.          $1 > $max_usage ? $free_usage = 1:$free = 1;
    
17.     }
    
18.     return 1 if defined $free and !defined $free_usage;
    
19. }
    
20. unless (Free_Space("$max_usage") eq "1"){
    
21.     rmtree ('/opt/software/',{keep_root => 1,verbose => 1 })
    
22. }
    

复制代码

1. 在crontab里添加
   
2. 00 18 * * * /usr/bin/perl /script/cron_rm.pl

复制代码

具体情况 具体改改吧{:3_186:}

yejunlon

回复 4# mcshell


    谢谢，mcshell 大大！！！
    我试试，顺便修改一下，我使用的是solaris10系统

mcshell

回复 5# yejunlon


    solaris10 没试用过。。
  aix  linux  都可以通过， 思路就是获取一下系统的磁盘空间使用情况，然后正则匹配下。。
具体看下solaris 磁盘空间命令是否通用{:3_190:}

yejunlon

一样，都是df

wenhq

把linux改成Solaris试试。

caozs

这位的脚本是很好的脚本，  不过我在这里忍不住要吐槽perl的 unless了。

真是让人每次看到都纠结半天， 大家都知道自然语言里“除非”这个词的意思是：
要做某件事，但如果条件A成立，则不做这件事， 仅此而已！
但是逻辑上说，可推出来的是： 如果条件A不成立，并不意味着要做某件事，同样可能不做的！  也就是从英语unless的语义意味着这个条件A根本不知道{}里面的事情该不该做！

所以unless 和 if then 相比就是个渣！


   

rubyish

很好的脚本，3Q~ {:3_188:}