perl - Perl：在没有第一行的情况下加入 .txt 的所有行

Question

我的问题的目的是将文件的所有行加入一行，忽略第一行。我有这个代码：

perl -pe 's/\n/ /g;' file

它连接文件的所有行，包括第一行。你知道有什么方法可以避免第一行吗？

另一种方法是：

foreach $line (<SEQ>) {
    next if $. == 1;
    chomp $line;     
    $one .= $line; }

但是时间太长了……

提前致谢。

Answer 1

perl -wpe'BEGIN{<>} tr/\n/ /' file

虽然从命令行我可能会做

tail -n +2 file | tr '\n' ' '

在脚本中：

use File::Slurp 'read_file';
my $out = read_file('filename');
$out =~ s/\A.*?\n//;
$out =~ tr/\n/ /;

Answer 2

perl -pe '$_="" if $.==1; s/\n/ /g;' file