inserer des lignes...

bonjour,

extrait de script :
-----------------------------------------------------------------
...
open (FILE,"<",$fileName)or die ("...");
@allLines=<FILE>;
close (FILE);

open (FILE,">",$fileName) or die ("...");
foreach $thisLine(@allLines) {
if ($thisLine =~ /vmxnet/) {
print FILE "$thisLine";
print FILE "alias eth1 vmxnet\n";
print FILE "alias eth2 vmxnet\n";
print FILE "alias eth3 vmxnet\n";
}
else {
print FILE "$thisLine";
}
}
close (FILE);
...
-----------------------------------------------------------------
je lis donc tout le fichier puis je l'écrase et j'y écrit mes lignes
et,
lorsque j'ai identifié le bon endroit, j'insère de nouvelles lignes.

ça marche très bien. mais y-a-t-il un moyen plus simple ?


--
klp