这两天工作碰到一个问题，近八十台服务器。全部要删除指定目录下的符合某些要求的文件。加起来一百多万个！平均一台服务器有近两万多个。手工删是不可能了，于是有了下面这些脚本。

deletefile 

自动删除/record_file/下面目录内，31天以前的文件的脚本。放在某台服务器上

 
  
  1. #!/bin/bash  
  2. #to delete files with is 30 day ago  
  3. cd /record_file/  
  4. for i in `ls`   
  5. do  
  6.     cd /record_file/$i  
  7.     echo `pwd`     
  8.     find ./ -mtime +31 > filelist  
  9.     sleep 2  
  10.     rm -rf `cat filelist`  
  11.     sleep 10  
  12. done 
 
  
expect_run.exp
 
  
从某台服务器上把deletefile文件批量拷到远端服务器并运行的脚本。
 
  
 
  
  1. #!/usr/tcl/bin/expect  
  2. set timeout 2  
  3. set host [lindex $argv 0]  
  4. set user [lindex $argv 1]  
  5. set password [lindex $argv 2]    
  6. spawn ssh $user@$host  
  7. # Enable this and Disable the "spawn ssh ..." above if you are using ssh-key.  
  8. #spawn ssh -i ssh-key/Identity.ppk -p $port $user@$server  
  9. expect {  
  10.         "yes/no)?\ " {send "yes\r";exp_continue}  
  11.         "*assword:\ " {send "$password\r"}  
  12.         }  
  13. expect "]*"  
  14. send "scp root@100.2.3.91:/home/deletefile /home\r"  
  15. expect {  
  16.         "yes/no)?\ " {send "yes\r";exp_continue}  
  17.         "*assword:\ " {send "123456\r"}  
  18.         }  
  19. expect "]*"  
  20. send  "cd /home/\r"  
  21. send  "nohup ./deletefile &\r"  
  22. expect eof 
 
  
 run.sh   调用expect_run.exp的主脚本
 
  
 
  
  1. #!/bin/sh  
  2. cat ip.txt | while read ip user password  
  3. do  
  4.           ./expect_run.exp $ip $user $password  
  5. done 
 
  
ip.txt   不解释，主机列表
 
  
 
  
  1. 100.2.3.92  root   123456  
  2. 100.2.3.94  root    123456  
  3. 100.2.3.93  root    123456  
  4. 100.2.3.89  root    123456  
  5. 100.2.3.88  root    123456  
  6. 100.2.3.87  root    123456  
  7. 100.2.3.90  root    123456  
  8. 。。。。 
 
  
Expect的安装及使用（提醒一点tcl8.5.10编译有可能不成功最好用tcl8.4.11这个版本）
 
  
 
  
A. Tcl 安装
主页: http://www.tcl.tk
下载地址: http://www.tcl.tk/software/tcltk/downloadnow84.tml
 
  
1.下载源码包
wget http://nchc.dl.sourceforge.net/sourceforge/tcl/tcl8.4.11-src.tar.gz
wget http://nchc.dl.sourceforge.net/sourceforge/tcl/tk8.4.11-src.tar.gz
 
  
2.解压缩源码包
tar xfvz tcl8.4.11-src.tar.gz
tar xfvz tk8.4.11-src.tar.gz
 
  
3.安装配置
cd tcl8.4.11
cd unix
./configure --prefix=/usr/tcl --enable-shared
make
make install
 
  
安装完毕以后，进入tcl源代码的根目录，把子目录unix下面的tclUnixPort.h copy到子目录generic中。
暂时不要删除tcl源代码，因为expect的安装过程还需要用。
 
  
B. expect 安装 (需Tcl的库)
主页: http://expect.nist.gov/
 
  
1.下载源码包
 
  
Wget http://nchc.dl.sourceforge.net/project/expect/Expect/5.45/expect5.45.tar.gz
 
  
2.解压缩源码包
tar xfvz expect5.45.tar.gz
 
  
3.安装配置
cd expect-5.45
./configure --prefix=/usr/expect --with-tcl=/usr/tcl/lib  --with-tclinclude=
/tcl源代码路径/generic
 
  
make
make install