Làm thế nào tôi có thể lặp lại một chuỗi N lần trong Perl?

Question

Trong Python, nếu tôi làm điều này:

print "4" * 4 

tôi nhận được

> "4444" 

Trong Perl, tôi muốn có được

> 16 

Có một cách dễ dàng để làm những cựu trong Perl?

Answer 1

$ perl -e 'print "4"x4; print "\n"' 
4444 

Toán tử x được ghi trong perloc perlop. Dưới đây nhị phân có nghĩa là một nhà điều hành lấy hai đối số, không bao gồm các bit, bằng cách này.

Nhị phân "x" là toán tử lặp lại. Trong ngữ cảnh vô hướng hoặc nếu toán hạng bên trái không được đặt trong dấu ngoặc đơn, nó trả về một chuỗi gồm toán hạng bên trái lặp lại số lần được chỉ định bởi toán hạng đúng. Trong ngữ cảnh danh sách, nếu toán hạng bên trái được đặt trong dấu ngoặc đơn hoặc là một danh sách được tạo bởi "qw/STRING/", nó lặp lại danh sách. Nếu toán hạng đúng là số không hoặc âm, toán tử trả về một chuỗi trống hoặc danh sách trống , tùy thuộc vào ngữ cảnh.

 print ’-’ x 80;    # print row of dashes 

     print "\t" x ($tab/8), ’ ’ x ($tab%8);  # tab over 

     @ones = (1) x 80;   # a list of 80 1’s 
     @ones = (5) x @ones;  # set all elements to 5 

perl -e có nghĩa là để thực thi mã perl từ dòng lệnh:

 
$ perl --help 
Usage: perl [switches] [--] [programfile] [arguments] 
    
    -e program  one line of program (several -e's allowed, omit programfile) 

Answer 2

Nó rất giống trong Perl

print "4" x 4; 

Answer 3

Trong Perl, bạn muốn sử dụng toán tử "x".

Lưu ý sự khác biệt giữa

"4" x 4 

và

("4") x 4 

Cựu tạo ra một chuỗi lặp đi lặp lại:

"4444" 

sau một danh sách lặp đi lặp lại:

("4", "4", "4", "4") 

Answer 4

FWIW, cũng là print 4 x 4 trong Perl.

Nói chung, trong Perl, các toán tử là đơn hình, tức là. bạn có các toán tử khác nhau cho ngữ nghĩa chuỗi, cho ngữ nghĩa số, cho ngữ nghĩa bitwise, v.v., ở đâu nó có ý nghĩa, và loại toán hạng phần lớn không quan trọng. Khi bạn áp dụng toán tử số cho một chuỗi, chuỗi được chuyển đổi thành số đầu tiên và bạn nhận được thao tác bạn yêu cầu (ví dụ: nhân) và khi bạn áp dụng toán tử chuỗi cho một số, chuỗi đó được chuyển thành chuỗi và bạn nhận được thao tác bạn yêu cầu (ví dụ: lặp lại). Perl chú ý đến nhà điều hành đầu tiên và các loại toán hạng chỉ đứng thứ hai - nếu thực sự nó trả tiền cho họ bất kỳ tâm trí nào cả.

Điều này ngược lại với Python và hầu hết các ngôn ngữ khác, nơi bạn sử dụng một nhóm toán tử và các loại toán hạng xác định ngữ nghĩa bạn thực sự sẽ nhận được - nghĩa là. các toán tử đa hình.

Answer 5

Tất cả các câu trả lời, cho đến nay, bỏ lỡ kể rằng các nhà điều hành x không chỉ làm việc trên xâu mà còn trên các biến chuỗi hoặc biểu thức xây dựng chuỗi:

$msg = "hello "; 
print $msg x 2; 
print ($msg x 2) x 2; 

Answer 6

Nếu bạn muốn in 10 nhân vật "A" s, bạn cũng có thể làm

perl -e 'print "A" x 10'; echo 

Ví dụ này với sản lượng

user@linux:~$ perl -e 'print "A" x 10'; echo 
AAAAAAAAAA 
user@linux:~$