====== Perl: Les fichiers ======
==== Lecture fichier texte ====
<cmd>

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);

</cmd>

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

</cmd>

==== Lecture et Ecriture fichier texte ====
#!/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.

<cmd>
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);
</cmd>