当我尝试运行以下代码时出现一些错误,
我的要求是找到具有日期格式的文件 例如:我在一个目录中有文件名
01-02-2013.tar.gz
02-02-2013.tar.gz
.....
所以现在我试图找到一个文件 01-02-2013
这是代码片段
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time-6*24*60*60);
$year += 1900;
$mon += 1;
$mday = '0'.$mday if ($mday<10);
$mon = '0'.$mon if ($mon<10);
my $date_folder =~ /"$mday-$mon-$year"/;
if (-e $date_folder){
unlink $date_folder or die ("Cannot Delete $date_folder : $!");
}
在这里,我基本上是在尝试查找当前日期 6 天前的文件(例如:01-02-2013.tar.gz),SomeWhere 我觉得我的 $date_folder =~ /"$mday-$mon-$year" /; 出错了,
有什么建议么 ?