Chỉ thay thế tối đa N kết quả trên một dòng

Question

Trong Perl, cách viết biểu thức chính quy chỉ thay thế tối đa N kết quả cho mỗi chuỗi?

I.e., Tôi đang tìm một nền tảng trung gian giữa s/aa/bb/; và s/aa/bb/g;. Tôi muốn cho phép nhiều thay thế, nhưng chỉ tối đa N lần.

Answer 1

Tôi có thể nghĩ ra ba cách đáng tin cậy. Đầu tiên là thay thế mọi thứ sau trận đấu thứ N với chính nó.

my $max = 5; 
$s =~ s/(aa)/ $max-- > 0 ? 'bb' : $1 /eg; 

Điều đó không hiệu quả nếu có nhiều hơn N so khớp. Cho rằng, chúng ta cần phải di chuyển vòng lặp ra khỏi động cơ regex. Hai phương pháp tiếp theo là cách để làm điều đó.

my $max = 5; 
my $out = ''; 
$out .= $1 . 'bb' while $max-- && $in =~ /\G(.*?)aa/gcs; 
$out .= $1 if $in =~ /\G(.*)/gcs; 

Và thời gian này, tại chỗ:

my $max = 5; 
my $replace = 'bb'; 
while ($max-- && $s =~ s/\G.*?\Kaa/$replace/s) { 
    pos($s) = $-[0] + length($replace); 
} 

---

Bạn có thể bị cám dỗ để làm một cái gì đó giống như

my $max = 5; 
$s =~ s/aa/bb/ for 1..$max; 

nhưng cách tiếp cận đó sẽ thất bại cho các mẫu khác và/hoặc biểu thức thay thế.

my $max = 5; 
$s =~ s/aa/ba/ for 1..$max; # XXX Turns 'aaaaaaaa' 
          #  into 'bbbbbaaa' 
          #  instead of 'babababa' 

Answer 2

Điều bạn muốn không hiển thị trong cụm từ thông dụng. Nhưng bạn có thể đặt thay thế trong một cho vòng lặp:

my $i; 
my $aa = 'aaaaaaaaaaaaaaaaaaaa'; 
for ($i=0;$i<4;$i++) { 
    $aa =~ s/aa/bb/; 
} 
print "$aa\n"; 

kết quả:

bbbbbbbbaaaaaaaaaaaa

Answer 3

Bạn có thể sử dụng cờ /e mà đánh giá bên phải như là một biểu:

my $n = 3;  
$string =~ s/(aa)/$n-- > 0 ? "bb" : $1/ge; 

Answer 4

Dưới đây là một giải pháp sử dụng modifier/e, mà bạn có thể sử dụng code perl để tạo ra các chuỗi thay thế:

 
    my $count = 0; 
    $string =~ s{ $pattern } 
       { 
       $count++; 
       if ($count < $limit) { 
        $replace; 
       } else { 
        $&; # faking a no-op, replacing with the original match. 
       } 
       }xeg; 

Với perl 5.10 hay muộn bạn có thể thả $ & (có các biến chứng về hiệu suất kỳ lạ) và sử dụng $ {^ MATCH} thông qua công cụ sửa đổi/p

 
    $string =~ s{ $pattern } 
       { 
       $count++; 
       if ($count < $limit) { 
        $replace; 
       } else { 
        ${^MATCH}; 
       } 
       }xegp; 

Đó là quá xấu bạn không thể chỉ làm điều này, nhưng bạn không thể:

 
    last if $count >= $limit;