每行重复多次

希望文件中的每一行重复固定的次数。

例如，每行重复四次：

a
b
c

变成：

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

我已经进行了一些搜索，沿着反向进行的过程中有很多问题和答案，例如，将重复的行合并为单行，也许还有一些关于通过再次打印将行加倍的问题。

在C语言中这样做很容易，但是我希望我对本机命令有更多的了解，因此我不必一直使用这种一次性的方法。

• Perl：

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

  并且我必须添加由@derobert 发表的评论，因为它很酷：

  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视为真实。（为完整起见，如果省略条件，将对每个记录执行该操作。）

许多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