从 perl 数组中删除新行

Question

我正在尝试从文本文件中过滤文件名

my $fname= "filenames.txt";
open (FPTR,$fname) || die "Can't Open File: $fname\n";
chomp(my @filenames = <FPTR>);

文件的上下文如下

file1.pl
file2.pl
file3.pl
.
.
.
file100.pl

但是当我打印 @filenames 数组时，它就像

';AR1 = 'file1.pl
';AR2 = 'file2.pl
';AR3 = 'file3.pl
';AR4 = 'file4.pl
.
.
.
.
$VAR100 = 'file100.pl';

即使我添加了 chomp，新行也没有从数组元素中删除。

Answer 1

看起来您正在使用 Linux 处理源自 Windows 的文件，该文件将 CR LF 放在每行的末尾。你chomp删除了 LF，留下了 CR。您可以通过像这样更改代码来解决此问题

my $fname = 'filenames.txt';
open my $fptr, '<:crlf', $fname or die qq{Can't open file "$fname" for input: $!};
chomp(my @filenames = <$fptr>);

另一种方法是替换chomp为

s/\R\z// for @filenames;

或者

s/\s+\z// for @filenames;