Freitag, 12. Februar 2010

Aufgabe S54/1: Liste einlesen und rückwärts ausgeben

Seite 54, Aufgabe 1

Schreiben Sie ein Programm, dass mehrere Worte (strings) Zeilenweise einliest (getrennt durch Enter-Taste). Nach Beendigung der Eingabe (end-of-input, zB durch Tastenkombination Strg-D (Linux) oder Strg-Z (Windows)) sollen die Worte in Umgekehrter Reihenfolge ausgegeben werden.

#!/usr/bin/perl -w

@lines = ; # Abbrechen mit Strg-D!

@lines = reverse @lines;
print "Rueckwaertsausgabe:\n";
print @lines;

Keine Kommentare:

Kommentar veröffentlichen