Perl chomp 不会删除所有换行符

Question

我有这样的代码:

#!/usr/bin/perl
use strict;
use warnings;
open(IO,"<source.html");
my $variable = do {local $/; <IO>};
chomp($variable);
print $variable;

但是当我打印它时，它仍然有换行符？

Answer 1

它删除最后 换行符。

由于您正在吞噬整个文件，因此您将不得不进行正则表达式替换以摆脱它们:

$variable =~ s/\n//g;