ทำซ้ำแต่ละบรรทัดหลายครั้ง

ต้องการให้แต่ละบรรทัดในไฟล์ซ้ำกันหลายครั้ง

เช่นให้แต่ละบรรทัดทำซ้ำสี่ครั้ง:

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...

คำอธิบาย:

pคำสั่งของ sed คือการพิมพ์บรรทัดปัจจุบัน พฤติกรรมเริ่มต้นคือการพิมพ์บรรทัดปัจจุบันก่อนที่จะย้ายไปที่บรรทัดถัดไป-nต้องอนุญาตให้คุณปิดการทำงาน) seds รุ่นเก่าบางรุ่นไม่มีเซมิโคลอน (ฉันคิดว่า) ดังนั้นจึงเป็นไปได้ที่คุณอาจต้องทำsed -e p -e p -e p

Awk ทำงานร่วมกับcondition {action}คู่ หากละเว้นการกระทำค่าเริ่มต้นคือพิมพ์บรรทัดปัจจุบันหากเงื่อนไขส่งคืนจริง Awk ก็เหมือนกับภาษา C หลายภาษา1เป็นจริง (เพื่อความสมบูรณ์หากไม่มีการระบุเงื่อนไขการดำเนินการจะถูกดำเนินการสำหรับแต่ละระเบียน)

ฟังก์ชั่น Perl จำนวนมากใช้ประโยชน์จากตัวแปร "default" หนึ่งซับนี้เทียบเท่ากับ (บน 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, หรือperlawk

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

หรือใช้ขณะที่ห่วง:

$ 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