GESTION DES FICHIERS

1. Ouverture
   
   
   • En lecture
     open (F, 'e-coli.fasta')
     
     
   • En écriture
     open (F2, '>fichier.sortie')
     open (F2, '>>fichier.sortie')
     
     
   • Gestion des erreurs:
     if (! open (F, "toto.fasta")) {
     die "Problème à l'ouverture du fichier";
     }

     ou:
     open (F, "toto.fasta") || die "Pb d'ouverture";

   
   
2. Fermeture
   
   close F2;
   
   
   
3. Lecture
   
   $ligne = <F>;
   

   - La fin de ligne (retour-chariot) est lue également. Pour enlever cette fin de ligne il suffit d'utiliser la commande chop, ou son équivalent : chomp(enlève le dernier caractère uniquement si c'est un retour-chariot)

   Parcours:
   open (F, $fichier) ;
   while ($ligne = <F>) {
    print $ligne;
   }

   On peut lire toutes les lignes d'un fichier dans un tableau (en une seule instruction)
   @ligne = <F>;
   

   Un fichier spécial: STDIN, le clavier (entrée standard).
   

   Lecture d'une ligne au clavier:
   $ligne = <STDIN>;
   

   
   
4. Ecriture

   Deux fichiers spéciaux: STDOUT, STDERR (respectivement: sortie standard, et sortie erreur), par défaut l'écran.
   
   print F2 'DUPONT Jean';
   print F3 'Comment fait-on pour se connecter SVP ?';
   print STDOUT "Bonjour\n";
   print STDERR 'Je déteste les oranges !';