使用perl删除不同的文件，该名称以diefferent名称扩展而结束，例如动态日期和小时

Question

我想删除目录中的许多文件。问题是扩展不相同。结尾是动态的： .DAT_20220526_061224

.DAT_20220525_041226

.DAT_20220514_081212

此扩展名是动态的，但是有相同的模型

，请有人可以帮助我 谢谢！

这是我的代码

use strict;
use warnings;

my $dir = "D:/perl-projet/";

if ( -e $dir)
{
    
    unlink $dir . "log.dat_20220518_233007"; #this ligne is work quand i put all name of the file ( the was been deleted)
    
    #unlink(glob("${$dir}log.dat_???));      #this ligne didn"t work
    
    
    #unlink glob "$dir/*.dat_";           # this ligne didn"t too
}

Answer 1

glob("*.dat_*");

或

glob("*.dat_????????_??????");

或

grep /\.dat_\d{8}_\d{6}\z/, glob("*");;