Làm cách nào để lặp lại một ký tự n lần trong một chuỗi?

Question

Tôi đang học Perl, vì vậy hãy chịu đựng tôi vì câu hỏi noob này.

Làm cách nào để lặp lại một ký tự n lần trong chuỗi?

tôi muốn làm một cái gì đó như dưới đây:

$numOfChar = 10; 

s/^\s*(.*)/' ' x $numOfChar$1/; 

Answer 1

Theo mặc định , thay thế lấy một chuỗi như là một phần để thay thế. Để thực thi mã trong quá trình thay thế, bạn phải sử dụng cờ e.

$numOfChar = 10; 

s/^(.*)/' ' x $numOfChar . $1/e; 

Điều này sẽ thêm $numOfChar không gian vào đầu văn bản của bạn. Để làm điều đó cho tất cả các dòng trong văn bản hoặc sử dụng -p cờ (cho nhanh chóng, xử lý một dòng):

cat foo.txt | perl -p -e "$n = 10; s/^(.*)/' ' x $n . $1/e/" > bar.txt 

hoặc nếu đó là một phần của một kịch bản lớn hơn sử dụng -g và -m cờ (-g cho toàn cầu , tức là lặp đi lặp lại thay và -m để làm ^ trận đấu vào lúc bắt đầu của mỗi dòng):

$n = 10; 
$text =~ s/^(.*)/' ' x $n . $1/mge; 

Answer 2

Bạn nói đúng. Toán tử x của Perl lặp lại một chuỗi một số lần.

print "test\n" x 10; # prints 10 lines of "test" 

CHỈNH SỬA: Để làm điều này trong một biểu thức chính quy, tốt nhất nên chỉ định giá trị cho biến khác.

my $spaces = " " x 10; 
s/^\s*(.*)/$spaces$1/; 

Có nhiều cách để làm điều đó mà không cần thêm biến, nhưng chỉ $ 0,02 là dễ bảo trì hơn nếu bạn làm theo cách này.

EDIT: Tôi đã sửa lại regex của mình. Xin lỗi tôi đã không đọc nó ngay lần đầu tiên.

Answer 3

biểu hiện thường xuyên của bạn có thể được viết như sau:

$numOfChar = 10; 

s/^(.*)/(' ' x $numOfChar).$1/e; 

nhưng - bạn có thể làm điều đó với:

s/^/' ' x $numOfChar/e; 

Hoặc mà không sử dụng regexps tại tất cả:

$_ = (' ' x $numOfChar) . $_;