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