清除centos上面kde软件的一个脚本，基本好用

 

#!/usr/bin/perl -w 
 
@pack=qx/rpm -qa|grep kde/; 
 
print"======================\n"; 
 
print @pack; 
 
print"=======================\n"; 
 
#rpm 命令 -e 卸载rpm包 --nodeps 忽略依赖关系 
foreach $every (@pack){ 
        $cmd="rpm -e --nodeps ".$every; 
        system($cmd); 
        $cmd=""; 
 
} 

自己用还行，不考虑大家感受，怕自己忘了 找个地方记一下