我正在设置定期运行的 Perl 脚本并删除不需要的文件夹，并按照命名约定识别我的组织自动生成的文件夹
文件夹名称MM_DD_YYYY
有人可以帮我处理这个正则表达式吗
$foldername = "abc";
if ($folder =~ m/^\Q$foldername\d{2}_\d{2}_\d{4}$/) {
rmdir $folder; // `rmdir` works if folder is empty; otherwise you could `use File::Path 'rmtree'`;
}
注意：请注意，此正则表达式也接受无效日期（即：99_88_0000），但这对您的用例来说应该不是问题……让正则表达式接受有效日期并不容易……它不是甚至可以匹配闰年，例如，使用简单的正则表达式......
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句