各行を複数回繰り返します

ファイル内の各行を一定回数繰り返したいと思います。

たとえば、各行を4回繰り返します。

a
b
c

になる：

a
a
a
a
b
b
b
b
c
c
c
c

私はいくつかの検索を行いましたが、逆の行に沿って多くの質問と回答があります。たとえば、重複する行を単一の行にマージしたり、再度印刷して行を2倍にしたりします。

Cでこれを行うのは簡単ですが、ネイティブコマンドについてもっと詳しく知りたいので、このような1回限りのスローアウェイにいつも頼る必要はありません。

• Perl：

  perl -ne 'for$i(0..3){print}' file

  そして、@ derobert がコメントとして投稿したこの1つを追加する必要があります。

  perl -ne 'print "$_" x4'

• awk およびバリアント：

  awk '{for(i=0;i<4;i++)print}' file

• bash

  while read line; do for i in {1..4}; do echo "$line"; done; done < file

これがゴルフの試合になっているのだろうか：

sed 'p;p;p' 
awk '1;1;1;1' 
perl -lpE 'say;say;say'   # if Paul McCartney and Michael Jackson were hackers...

説明：

sedのpコマンドは、現在の行を印刷することです。デフォルトの動作では、次の行に移動する直前に現在の行を印刷します（そのため、sed -nでオフにできるようにする必要があります）。いくつかの古いsedにはセミコロンが付いていないので（私は思う）、そうする必要があるかもしれませんsed -e p -e p -e p

Awkはcondition {action}ペアで機能します。アクションが省略された場合、デフォルトでは、条件がtrueを返す場合、現在の行が印刷されます。多くのCライクな言語と同様に、Awk 1はtrueとして扱います。（完全を期すために、条件が省略された場合、アクションは各レコードに対して実行されます。）

多くのperl関数は「デフォルト」変数を利用します。このワンライナーは（perl 5.16で）と同等です：

$ perl -MO=Deparse -lpE 'say;say;say'
BEGIN { $/ = "\n"; $\ = "\n"; }
use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    say $_;
    say $_;
    say $_;
}
continue {
    die "-p destination: $!\n" unless print $_;
}

sed -n '{p;p;p;p;}' file

awk '{print;print;print;print;}' file

あなたは必要とせず、これを行うことができsed、perlまたはawk。

$ for i in `cat <file>` ; do seq <#> <#> | xargs -i -- echo $i ; done

または、whileループを使用します。

$ while read i ; do seq <#> <#> | xargs -i -- echo $i ; done < <file>

例

$ for i in `cat sample.txt` ; do seq 1 3 | xargs -i -- echo $i ; done
a
a
a
b
b
b
c
c
c

$ while read i; do seq 1 2| xargs -i -- echo $i;done < sample.txt
a
a
b
b
c
c

純粋なシェルの使用：

repeats=4
while read line; do yes $line|head --lines=$repeats; done < infile > outfile

これはあなたのために働くかもしれません（GNU sed）：

sed 'h;:a;s/[^\n]\+/&/4;t;G;ba' file

各行を4回繰り返します。

または、必要に応じて：

sed 'h;:a;s/\n/&/3;t;G;ba' file

各行をさらに3回繰り返す場所。

@potongの答えは空の行では機能せず、置き換え\+て*修正する必要があります：

sed 'h;:a;s/[^\n]*/&/4;t;G;ba' file