Her satırı birkaç kez tekrarlayın

Bir dosyadaki her satırın belirli sayıda tekrarlanmasını istiyoruz.

örneğin, her satırı dört kez tekrarlayın:

a
b
c

dönüşür:

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

Biraz arama yaptım ve tersini yapan çizgiler boyunca birçok soru ve cevap var, örneğin yinelenen satırları tek satırlara birleştirmek ve belki de satırları tekrar yazdırarak iki katına çıkarmak.

Bunu C'de yapmak kolay olurdu, ancak keşke yerel komutlar hakkında daha fazla bilgi sahibi olsaydım, bu yüzden bu tür bir kerelik atışlara her zaman başvurmak zorunda kalmam.

• Perl:

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

  ve ben sadece serin çünkü @ derobert tarafından yorum olarak yayınlanan bir eklemek zorunda:

  perl -ne 'print "$_" x4'

• awk ve varyantları:

  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

Bunun bir golf maçına dönüşüp dönüşmediğini merak ediyorum :

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

Açıklama:

sed'in pkomutu geçerli satırı yazdırmaktır. Varsayılan davranış, bir sonraki satıra geçmeden hemen önce geçerli satırı yazdırmaktır (bu yüzden sed'in -nonu kapatmanıza izin vermesi gerekir). Bazı yaşlı sümüklerde noktalı virgül yoktur (bence) bu yüzden yapmanız gerekebilirsed -e p -e p -e p

Awk condition {action}çiftlerle çalışır . Eylem atlanırsa, varsayılan koşul doğruysa geçerli satırı yazdırmaktır. Awk, birçok C benzeri dil gibi, 1gerçek gibi davranır . (Tamlık için, koşul belirtilmezse, eylem her kayıt için yürütülür.)

Birçok perl işlevi "varsayılan" değişkeninden yararlanır. Bu tek astar eşdeğerdir (perl 5.16'da):

$ 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

Sen gerektirmeden yapabilirsiniz sed, perlveya awk.

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

veya while döngüsü kullanarak:

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

Örnekler

$ 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

Tamamen kabuk kullanarak:

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

Bu sizin için işe yarayabilir (GNU sed):

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

Her satırı 4 kez tekrarlar.

İsterseniz:

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

Her satırı 3 kez daha tekrarladığınız yer.

cevabını @potong yerine boş çizgilerle çalışma değil \+ile *düzeltmek gerekir:

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