Perl的格格不会删除所有的换行符

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; 

Answer 2

Chomp只从字符串末尾删除一个换行符（实际上，当前值为$/，但这是换行符）。要删除所有换行符，这样做：

$variable =~ y/\n//d; 

Answer 3

或者你可以chomp每一行，你在读它：

#!/usr/bin/perl 

use strict; 
use warnings; 

open my $io, '<', 'source.html'; 
my $chomped_text = join '', map {chomp(my $line = $_); $line} <$io>; 

print $chomped_text;