Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Perl: Inverser les lignes d’un texte

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.


Download

#!/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;