[perl]insérer une ligne au milieu d'un fic

Fermé
fxtaa Messages postés 1050 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 2 avril 2015 - 4 nov. 2010 à 15:33
Bonjour,

Je dois chercher dans un fichier une ligne dont je connais la chaine de caractère et ajouter à la ligne suivante, une ligne que je connais. pour le début pas de probleme :

open (FILE, ">>$fic");
@ligne = <FILE>;
$cpt = @ligne;
$i = 0;
while ($cpt != $i){
	
	if ($ligne[$i] =~ /^####TOTO####/){
	      $ligne[$i+1] #je coince
	}
	$i ++;
}

close FILE;


Comment faire ?