perl的正则表达式：windows编程

Question

我想要一个perl正则表达式，它将打印最后只有.txt 扩展名的文件名。

我已经写了一个reg exp但是它打印的所有文件都扩展名为.txt，也就是.txt *文件。那我不想要

if($filename=~m/xxx\\.txt/i)

我现在也尝试了以下内容，但它也无法正常工作

if($filename=~m/xxx\\.txt$/i)

Answer 1

你需要$ boundary来表示字符串的结尾。

if ($filename =~ m/\.txt$/i)

注意，您也可以使用glob获取所有文本文件

my @textfiles = <*.txt>;

Answer 2

Windows会在文件名末尾添加有趣的东西吗？ 尝试：

if($filename =~ /\.txt\s*/)