Làm cách nào để thêm giá trị lặp lại vào một mảng trong Perl?

Question

Tôi có một mảng @genotypes = "TT AG TT AG...." và muốn thêm tăng đột biến vào nó (ví dụ: 20 x TT) để tạo một mảng mới.

Tôi có thể rõ ràng là push "TT" vào mảng 20 lần - nhưng có cách nào đơn giản hơn để thực hiện việc này không? . (Tức là không @newarray = push @genotypes ("TT", "TT", "TT",......20 times!);

Answer 1

@newlist = (@genotypes, ('TT') x 20); 

Vâng, đó là một x

Xem Multiplicative Operators in perldoc perlop

Answer 2

Nhà điều hành lặp đi lặp lại là cách rõ ràng nhất
Bạn cũng có thể sử dụng map:...

@newarray = (@genotypes, map 'TT', 1..20); 

Answer 3

Ngoài ra còn có cách foreach cách pu shing nhiều giá trị giống hệt nhau cho một mảng:

push @newarray, 'TT' foreach (1..20);