#!/usr/bin/perl -w
#On affiche "Saisir une nouvelle ligne : "
print "Saisir une nouvelle ligne : ";
#Tant qu'on peut associer des caractères venant de l'entrée standard (Le clavier) à la variable $ligne, on exécute le bloc d'instructions
while ($ligne = <>) {
	#On ajoute, à la suite du contenu de la variable $texte, le contenu de la variable $ligne
	$texte .= $ligne;
}
#On affiche "Vous avez saisi le texte ", suivi d'un retour à la ligne, suivi du contenu de la variable $texte, et suivi d'un retour à la ligne
print "Vous avez saisi le texte \n $texte \n";


Il va afficher:
Saisir une nouvelle ligne : C'est fou de mettre autant
de ligne qu'on veut...
alors profitons...
bla... bla.. bla...
Ah oui pour mettre fin a la saisie, il faut envoyer le caractere 
obtenue par la combinaison des touches Ctrol+D sur une ligne vide
testons...
Il va afficher:
C'est fou de mettre autant
de ligne qu'on veut...
alors profitons...
bla... bla.. bla...
Ah oui pour mettre fin a la saisie, il faut envoyer le caractere 
obtenue par la combinaison des touches Ctrol+D sur une ligne vide
testons...



On réécrit le programme précédant en n’utilisant que la variable spéciale $_ 
Cette variable contient la dernière ligne lue.


#!/usr/bin/perl -w
#On affiche "Saisir une nouvelle ligne : "
print "Saisir une nouvelle ligne : ";
#Tant qu'on peut lire la dernière chaîne de caractères venant de l'entrée standard (Le clavier), on exécute le bloc d'instructions
while (<>) {
	#On ajoute, à la suite du contenu de la variable $texte, le contenu de la variable $_ (Contient la dernière ligne lue)
	$texte .= $_;
}
#On affiche "Vous avez saisi le texte ", suivi d'un retour à la ligne, suivi du contenu de la variable $texte, et suivi d'un retour à la ligne
print "Vous avez saisi le texte \n $texte \n";




Il va afficher:
Saisir une nouvelle ligne : On s'ennuie pas 
en perl, non?:-)


Il va afficher: 
On s'ennuie pas 
en perl, non?:-)