PARTIE 2
Exercice 04++ Boucle de lecture while
- Le script de base :
#!/usr/bin/perl -w
print "Saisir une nouvelle ligne : ";
while ($ligne = <>) {
$texte .= $ligne;
}
print "Vous avez saisi le texte \n $texte \n";
- Voici l'explication du script (cliquez pour agrandir)
- Le résultat dans cygwin :
- Avec la variable spéciale $_
- Le résultat dans cygwin
