Perl：在没有第一个文本的情况下加入.text的所有行

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