Периодическая замена с использованием Perl

Question

У меня есть слово (МОДЕЛЬ 1) в моем файле 20 раз, перемежаемое строками текста. Я хочу заменить его частотным числом появления, например. MODEL 1, а затем, когда это произойдет снова, тогда MODEL 2, а затем MODEL 3 и так далее.

Однако моя петля застревает в первом раунде и не зацикливается, пока не заменит все слова.

Может ли кто-нибудь сказать мне, что я упускаю. Любая помощь приветствуется.

код приведен ниже:

#!/usr/bin/perl -w 

my $file = 'test.text'; 
open (my $fh, $file); 

while (my $row = <$fh>) { 

    chomp $row; 
    if (($row) =~ /^MODEL 1/){ 

     $i = 1; 
     $row =~ s/^MODEL 1/MODEL $i/g; 
     $i++; 
    } 

    print "$row\n"; 
} 

Answer 1

Move $i = 1 инициализации выше while петли

$i = 1; 
while (my $row = <$fh>) { chomp $row; 
    ... 
} 

Вы сбросить его обратно для каждой строки, так что не будет каких-либо изменений вообще.

Answer 2

Вы можете увеличивать счетчик в самой замене модели с модификатором е:

my $i=1; 
while (my $row = <$fh>) { 
    chomp $row; 
    $row =~ s/MODEL \K1/$i++/ge 
    print "$row\n"; 
} 

Answer 3

Вы должны переместить переменный счетчик вне цикла.

Как упрощение, используйте s///e, чтобы соответствовать и заменить на один шаг:

#!/usr/bin/env perl 
use strict; 
use warnings; 
use autodie; 

my $file = 'test.text'; 

open my $fh, '<', $file; 

my $counter = 0; 

while (<$fh>) { 
    chomp; 

    s/^MODEL \K1/++$counter/e; 

    print "$_\n"; 
}