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 $@;
}
本文介绍了一个使用Perl语言编写的脚本示例,该脚本用于在指定目录下查找并删除特定名称的文件。具体操作包括打开目录、检查文件存在与否以及执行删除操作。
359

被折叠的 条评论
为什么被折叠?



