perl：将行连接成一个字符串

Question

我有一个看起来像这样的文件：

hellothisisline1
andthisisline2hi
yepthisistheline

我想将这些行连接成一个字符串

hellothisisline1andthisisline2hiyepthisistheline

print "Input file name \n";
open (FILE, <>);
$string = "";
while($line = <FILE>) {
   $string = $string . "" . $line;
}
print "$string \n";

但这似乎不起作用，输出是原始格式的文件。

Answer 1

如果您使用 Perl5，chomp 可用于删除字符串末尾的换行符。

print "Input file name \n";
open (FILE, <>);
$string = ""; 
while($line = <FILE>) {
    chomp($line); # add this line
    $string = $string . "" . $line;
}
print "$string \n";

Answer 2

使用chomp 函数删除换行符。 该地图将chomp 函数应用于每一行，并且连接将所有行粘在一起。

print "Input file name \n";
open (FILE, <>);
$string = join('', map { chomp; $_ } <FILE>);
print "$string \n";

也可以在 slurping 文件后使用 "tr" 删除换行符：

print "Input file name \n";
open (FILE, <>);
($string = join('', <FILE>)) =~ tr/\n//d;
print "$string \n";