如何使用Perl批量删除后缀含动态日期时间的同类命名文件

原有代码失效原因 #

你之前写的两种glob写法不生效，核心问题有3个：

• 第一种glob("${$dir}log.dat_???))存在语法错误：${$dir}是对标量引用的解引用写法，你的$dir是普通路径字符串，不需要这种写法；同时语句存在引号未闭合的问题，且???仅能匹配3个任意字符，和你要匹配的「.dat_后15位字符（8位日期+下划线+6位时间）」规则长度完全不匹配。
• 第二种glob "$dir/*.dat_"通配规则错误：仅能匹配文件名以.dat_结尾的文件，而你的目标文件.dat_后面还拼接了日期时间串，根本无法命中目标。
• 原代码用-e判断目录是否存在逻辑不严谨：-e对普通文件也会返回真值，判断目录应当使用-d操作符。

可直接运行的正确实现 #

匹配规则严格对齐你的命名要求：仅匹配.dat_后接8位数字、下划线、6位数字的文件，避免误删其他后缀相似的文件。代码里加了调试打印逻辑，首次运行可以先确认匹配结果正确，再开启删除功能：

use strict;
use warnings;

my $dir = "D:/perl-projet/";
# 统一处理目录分隔符，避免末尾漏写/多写分隔符的问题
$dir =~ s#[\\/]$##;
$dir .= '/';

if (-d $dir) {
    # 精准通配：匹配.dat_ + 8位数字 + _ + 6位数字的文件
    my @del_files = glob(
        $dir . '*.dat_' 
        . '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]' 
        . '_[0-9][0-9][0-9][0-9][0-9][0-9]'
    );

    # 调试用：先打印所有匹配到的文件，确认列表无误后再注释掉调试代码、开启unlink
    print "待删除文件列表：\n";
    print "$_\n" for @del_files;

    # 确认匹配结果正确后，取消下一行注释执行删除
    # unlink @del_files or warn "删除操作出现异常: $!";
}

额外注意事项 #

• 不要直接把glob返回结果传入unlink不做校验，尤其是删除类操作，先确认匹配列表100%符合预期再执行删除，避免误删重要文件。
• Windows环境下Perl的glob函数对正斜杠路径支持正常，不需要特意改成反斜杠；如果用反斜杠路径需要注意转义问题。
• 如果目录下文件数量特别大（超过数千个），可以换成opendir+正则匹配的方式遍历，效率比glob更高，常规场景下glob写法完全够用。

内容的提问来源于stack exchange，提问作者meeric