Как я могу условно вставить строки при использовании Tie :: File?

Question

Как я могу изменить этот код, чтобы вставить строки, если они отсутствуют, без удаления существующих?

tie my @lines, 'Tie::File', $fn or die "could not tie file: $!";          

for (my $i = 0;  $i < @lines; $i++) {

   if ($ln_title == 0) {                            

      if ($i < $#lines and $lines[$i] =~ /(\s+TRACK \d\d .*)$/) {        

         $lines[$i+1] = '    TITLE ""';
      }
   }
}                      

untie @lines;

Answer 1

Ваши требования кажутся немного расплывчатыми, поэтому мне сложно сказать, что вы хотите.

Если вы хотите вставить строку TITLE "" сразу после строки TRACK без замены (перезаписи)после строки TRACK вместо $lines[$i+1] = … можно использовать следующее:

splice @lines, $i+1, 0, '    TITLE ""';