Posts Tagged ‘texte’

Perl: Inverser les lignes d’un texte


{filelink=15267#}

#!/usr/local/bin/perl
 
# Lire l'entrée clavier
print "Taper votre texte, Pour quitter appuyez sur Ctrl-Z:\n"; # ou Ctrl-D selon la plateforme
@lines = <STDIN>;
#Inverser les caractères
@reverse_lines = reverse @lines;
#Afficher le résultat
print @reverse_lines;