Partie 2 - Etape1 - Exercice 5
Boucle de lecture while
Saisir des lignes au clavier dans une boucle while (tant que) avec
l'opérateur <> La fin de la saisie est provoquée par l'envoi du
caractère Ctrl-d (eof) sur une ligne vide
1. Expliquer et tester le script initial
2. Expliquer ICI pourquoi l'affichage est identique à la saisie
3. Réécrire en n'utilisant que la variable spéciale $_ (voir ci-dessous, variables scalaires 5et 6)
---------------------------------------------
#!/usr/bin/perl -w
print "Saisir une nouvelle ligne : ";
while ($ligne = <>) {
$texte .= $ligne;
}
print "Vous avez saisi le texte \n $texte \n";
