Section courante

A propos

Section administrative du site

En Perl, il est relativement facile d'effectuer l'écriture d'un fichier texte séquentiel. Si nous voulons écrire un fichier «nombre.txt» et écrire des numéros de lignes dedans, voici le code source en Perl :

  1. #!/usr/bin/perl
  2.  
  3. if(open(HANDLE, '>>' . "nombre.txt")) {
  4.    for(my $I = 0; $I < 10; $I++) {
  5.        print HANDLE "Ligne ".$I."\n";
  6.    }
  7.    close(HANDLE);
  8. }

on obtiendra le résultat suivant dans le fichier «nombre.txt»:

Ligne 0
Ligne 1
Ligne 2
Ligne 3
Ligne 4
Ligne 5
Ligne 6
Ligne 7
Ligne 8
Ligne 9


Dernière mise à jour : Dimanche, le 18 octobre 2015