这两天朋友几篇文章介绍了改程序文件的文章. 关联文章的地址
原代码如下:
#!/usr/bin/perl
use File::Path ;
$\="\n";
my $cfg="clr.cfg";
open (mycfg,$cfg) or die "open $cfg error![$!]";
while(<mycfg>)
{
chomp;
&chk_file();
}
close(mycfg);
sub chk_file
{
$_=$ENV{"HOME"}.$_;
if (-f )
{
&unlink_file();
}
if (-d )
{
&unlink_path();
}
return 0;
}
sub unlink_path
{
chomp;
my $path=$_;
chdir $path or die "chdir error![$!]";
opendir(myfile,$path) or die "find $path error![$!]";
foreach (readdir myfile)
{
next if $_ eq "." or $_ eq "..";
rmtree($_) if -d;
unlink ;
}
closedir(myfile);
rmdir $path;
mkdir $path;
return 0;
}
sub unlink_file
{
unlink or die "remove $_ error![$!]";
return 0;
}
每日一道理
站在历史的海岸漫溯那一道道历史沟渠:楚大夫沉吟泽畔,九死不悔;魏武帝扬鞭东指,壮心不已;陶渊明悠然南山,饮酒采菊……他们选择了永恒,纵然谄媚诬蔑视听,也不随其流扬其波,这是执著的选择;纵然马革裹尸,魂归狼烟,也要仰天长笑,这是豪壮的选择;纵然一身清苦,终日难饱,也愿怡然自乐,躬耕陇亩,这是高雅的选择。在一番选择中,帝王将相成其盖世伟业,贤士迁客成其千古文章。
站在历史的海岸漫溯那一道道历史沟渠:楚大夫沉吟泽畔,九死不悔;魏武帝扬鞭东指,壮心不已;陶渊明悠然南山,饮酒采菊……他们选择了永恒,纵然谄媚诬蔑视听,也不随其流扬其波,这是执著的选择;纵然马革裹尸,魂归狼烟,也要仰天长笑,这是豪壮的选择;纵然一身清苦,终日难饱,也愿怡然自乐,躬耕陇亩,这是高雅的选择。在一番选择中,帝王将相成其盖世伟业,贤士迁客成其千古文章。
config文件如下:
/tmp/
执行结果是:
家目录下所有文件文件夹全体被删除!
包含脚本本身,所以似乎原脚本不是这样的...
o(︶︿︶)o 唉。。。堪比电锯惊魂啊,关键是在公司的开发机上执行的,大家半年的血汗就没了,程序倒是有备份,但是有的头文件什么的,全体丧失。
记下这次教训,提示自己,还太年轻,做事不谨慎,平常也没做好备份任务,这是对自己和其他同事的不负责任。
备注:自己配置cfg文件时其实也主意到了哪行空行,但是完全没有想到它带来的结果,还抱着碰运气的心态,想看看程序碰到空行会怎么办....程序太不谨严了。记下此事件,警钟长命。
文章结束给大家分享下程序员的一些笑话语录: 女人篇
有的女人就是Windows虽然很优秀,但是安全隐患太大。
有的女人就是MFC她条件很好,然而不是谁都能玩的起。
有的女人就是C#长的很漂亮,但是家务活不行。
有的女人就是C++,她会默默的为你做很多的事情。
有的女人就是汇编虽然很麻烦,但是有的时候还得求它。
有的女人就是SQL,她会为你的发展带来莫大的帮助。