Perl: Les fichiers

open (FIC,'MonFic') || die ("Le fichier n'existe pas\n");
while (<FIC>)
{
  # par défaut chaque ligne lue (y compris le délimiteur
  # de fin de ligne) est stockée dans $_
}
close(FIC);

open (FIC,'>MonFic') || die ("Le fichier n'existe pas\n");
print FIC "toto\n";
close(FIC);

#!/usr/bin/perl # # Parcourir l'ensemble des TP réalisés et rajouter un commentaire # dans chacun d'entre eux … # On choisit ici de remplacer la première ligne par elle même # suivie d'un commentaire constant. use strict 'vars'; my $Head = "#!/usr/bin/perl"; my $Comment= "\n#\n# Effectué en formation PERL \n#"; my @fic = <*.pl>; # obtenir la liste des tp.

unless (open (IN,$prog)) 
{
    print ("Erreur d'ouverture $prog ($!) \n");
}
unless (open (OUT, ">${prog}.bis")) 
{
     print ("Erreur création ${prog}.bis ($!) \n");
}
print ("Traitement de $prog … \n");
while (<IN>) 
{
   s/($Head)$/\1$Comment/;
   print OUT;
}
close(IN);
close(OUT);