Etape 7 : Ecrire dans un fichier

1. Lire le nom du fichier (s'il n'existe pas, le nom sera ajout.txt)
2. Ouvrir ce fichier en ajout
3. Ecrire une boucle (cf Etape 5), dans laquelle chaque ligne saisie au clavier est imméditement écrite dans le fichier
4. Après sortie de boucle, pour controler afficher le contenu du fichier créé.

   • #!/usr/bin/perl
     
     #On affiche "Donnez moi le nom du fichier de travail : " 
     print "Donnez moi le nom du fichier de travail : "; 
     
     #On affecte à la variable $writefile le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier) 
     my $writefile=<STDIN>; 
     #On supprime le dernier caractère contenu dans la variable $writefile seulement si celui-ci est un retour à la ligne (chomp) 
     chomp ($writefile); 
     
     #Si le contenu de la variable $writefile est égal à rien, on exécute le bloc d'instructions 
     if ($writefile eq "") { 	
     	#On affecte la chaîne de caractères "ajout.txt" à la variable $writefile 	
     	$writefile="ajout.txt"; } 
     
     #Si le fichier n'existe pas, il est créé, Si le fichier existe déjà, le contenu du fichier n'est pas écrasé (Les caractères sont ajoutés à la suite)
     open(FICHIERSORTIE, ">>$writefile"); 
     
     #On affiche "Saisir le texte a copier dans le fichier $writefile :" 
     print "Saisir le texte a copier dans le fichier $writefile :\n"; 
     
     #Tant qu'on peut associer la dernière chaîne de caractères à la variable $ligne, on exécute le bloc 
     while ($ligne=<>) { 	
     	#On ajoute, à la suite du contenu de $texte, le contenu de la variable $ligne 	
     	$texte .= $ligne; 
     } 
     
     #On écrit le contenu de la variable $texte dans le fichier référencé sous le nom FICHIERSORTIE 
     print FICHIERSORTIE $texte; 
     close(FICHIERSORTIE); 
     
     #On ouvre en lecture le fichier dont le nom est contenu dans la variable $writefile et on le référence sous le nom FICHIERENTREE 
     open(FICHIERENTREE, "$writefile");
     print "\nContenu du fichier :\n"; 
     
     #Tant qu'on peut associer une ligne du fichier référencé sous le nom FICHIERENTREE à la variable $l, on exécute le bloc
     while (my $l=<FICHIERENTREE>) { 	
     	#On affiche le contenu de la variable $l 	
     	print $l; 
     } 
     
     print "\n"; 
     close(FICHIERENTREE);
     

   • 
     premier essai : on ne spécifie pas le nom du fichier, il est donc créé
     deuxième essai : on spécifie le nom du fichier, ce qui est saisi est donc écrit à la suite.