Perl 的正则表达式:Windows 编程

Question

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

我已经写了一个reg exp，但它正在打印所有扩展名的文件.txt也打印.txt*文件。我不要

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

我现在也尝试了以下方法，但它也不起作用

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

Answer 1

你需要$边界来指示字符串的结尾。

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

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

my @textfiles = <*.txt>;

Answer 2

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

if($filename =~ /.txts*/)