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 :
- #!/usr/bin/perl
-
- if(open(HANDLE, '>>' . "nombre.txt")) {
- for(my $I = 0; $I < 10; $I++) {
- print HANDLE "Ligne ".$I."\n";
- }
- close(HANDLE);
- }
|
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: Mardi, le 25 octobre 2011 |