批处理 筛选只保留以.12结尾的文件

Question

文件夹有以下文件

20191.12

20191

20181.12

20181

 

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

use strict;
use warnings;

my @files = grep { /\.12$/ } readdir(my $dir);

print join("\n", @files);

这个Perl脚本会读取指定目录下的所有文件名，并使用正则表达式/\.12$来筛选出以.12结尾的文件。最后打印出所有的文件名。