perl 删除指定txt文件
2016-08-10 10:06
190 查看
my $filename ="20160809173901.txt";
my $dir="/wls/oracle/opr2_new_mon/lib";
eval{
opendir(DIR, "/wls/oracle/opr2_new_mon/lib") or die $!;
if (-f $dir."/".$filename) {
unlink $dir."/".$filename;
}
closedir DIR;
};
if ($@ ne ''){
print $@;
}
my $dir="/wls/oracle/opr2_new_mon/lib";
eval{
opendir(DIR, "/wls/oracle/opr2_new_mon/lib") or die $!;
if (-f $dir."/".$filename) {
unlink $dir."/".$filename;
}
closedir DIR;
};
if ($@ ne ''){
print $@;
}
相关文章推荐
- find命令删除指定天数前的,以.txt, .xls, .jpg结尾的文件及jsp报Unable to compile class for JSP错误
- wince在指定的路径下 打开,读,创建,写,删除txt文件
- 删除txt文件指定的行,按行读取txt文档数据
- 删除txt文件内容的指定行
- perl如何遍历指定文件夹下的指定扩展名文件,并按时间顺序要求删除
- php删除txt文件指定行及按行读取txt文档数据的方法
- 向指定txt文件里添加、读取和删除信息实例
- perl 循环删除指定文件夹下所有满足条件的文件,不包含文件夹
- 删除365天前指定目录下指定类型文件 perl
- c++删除文件夹内指定批量txt文件的前n行
- Java版本的删除指定目录及子目录下名叫“xxx.txt”的所有文件
- 批处理删除txt文件的指定行
- 一个使用多线程删除指定目录及子目录下所有指定文件的Java程序(源码)
- 怎么在指定天数以后,结束一个进程并删除进程文件??(整理自csdn)
- CMakeLists.txt文件写法(9):显式指定链接时需要的库文件
- 新人有问题请教:怎样删除txt文件中不需要的行!
- 用VBS脚本删除指定以外的文件或文件夹
- windows中无法删除文件,报"无法删除****,找不到指定文件,请确定指定的路径及文件名是否正确"的解决
- 删除指定日期的MySQL备份文件
- 删除文件中指定的部分内容