Comment puis-je insérer des lignes de manière conditionnelle lorsque j'utilise Tie::File ?

Question

Comment puis-je modifier ce code pour insérer des lignes si elles sont manquantes sans supprimer les lignes existantes ?

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

Vos exigences semblent un peu vagues, il m'est donc difficile de dire ce que vous voulez.

Si vous voulez insérer un TITLE "" immédiatement après une TRACK sans remplacer (écraser) la ligne qui se trouvait à l'origine après l'élément TRACK vous pouvez alors utiliser la ligne suivante à la place de $lines[$i+1] = … :

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