Lặp lại mỗi dòng nhiều lần

Muốn có mỗi dòng trong một tệp lặp lại một số lần cố định.

ví dụ: mỗi dòng được lặp lại bốn lần:

a
b
c

trở thành:

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

Tôi đã thực hiện một số tìm kiếm, và có rất nhiều câu hỏi và câu trả lời dọc theo dòng thực hiện ngược lại, ví dụ: hợp nhất các dòng trùng lặp thành các dòng đơn và có thể một vài về cách nhân đôi các dòng bằng cách in lại chúng.

Thật dễ dàng để làm điều này trong C, nhưng tôi ước tôi biết nhiều hơn về các lệnh gốc để tôi sẽ không phải dùng đến những kiểu ném một lần này mọi lúc.

• Perl:

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

  và tôi phải thêm bài này được đăng dưới dạng bình luận của @derobert vì nó rất tuyệt:

  perl -ne 'print "$_" x4'

• awk và các biến thể:

  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

Tôi tự hỏi nếu điều này đang biến thành một trận đấu golf :

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

Giải trình:

pLệnh của sed là in dòng hiện tại. Hành vi mặc định là in dòng hiện tại ngay trước khi chuyển sang dòng tiếp theo (đó là lý do tại sao sed -nphải cho phép bạn tắt nó). Một số seds cũ không có dấu chấm phẩy (tôi nghĩ) vì vậy có thể bạn phải làmsed -e p -e p -e p

Awk làm việc với condition {action}các cặp. Nếu hành động bị bỏ qua, mặc định là in dòng hiện tại nếu điều kiện trả về đúng. Awk, giống như nhiều ngôn ngữ giống như C, coi 1là đúng. (Để đầy đủ, nếu điều kiện bị bỏ qua, hành động sẽ được thực hiện cho mỗi bản ghi.)

Nhiều hàm perl tận dụng biến "mặc định". Lớp lót này tương đương với (trên 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

Bạn có thể làm điều này mà không đòi hỏi sed, perlhoặc awk.

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

hoặc sử dụng vòng lặp while:

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

Ví dụ

$ 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

Sử dụng vỏ hoàn toàn:

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

Điều này có thể làm việc cho bạn (GNU sed):

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

Sẽ lặp lại mỗi dòng 4 lần.

Hoặc nếu bạn thích:

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

Nơi bạn lặp lại mỗi dòng 3 lần nữa.

Câu trả lời của @potong không hoạt động với các dòng trống, thay \+vào đó *nên sửa nó:

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