Ein paar Kommentare

- use Modern::Perl --> ich würde es vermeiden, insbesondere da sich dieses Modul einfach ersetzen lässt und es unter CentOS sicher manuell nachinstalliert werden müsste - außerdem steht in der entsprechenden Doku, dass Perl 5.10 ab Sommer nicht mehr unterstützt wird. "use strict; use warnings; use feature qw(say);" tun es auch.

- Warum vergleichst du einmal mit < und dreimal mit lt/gt?

- Mir ist nicht klar, ob das Programm die Anforderungen erfüllt (weil mir die Anforderungen nicht klar sind) - woraus schließt du anhand des Beispiels, dass hier irgendwo Minimum und Maximum gefragt sind? Es steht da etwas von "anhand der ersten Zahl sortieren". Meine Vermutung war, dass die erste und letzte Zeile wichtig sind, aber wissen tun wir es nicht.

- die fehlt ein ; in der Ausgabe (am Ende jeder Zeile) - noch etwas, das mich stutzig werden lässt, wie die Anforderung denn nun genau ist

- was soll passieren, wenn es eine Zeile nur einmal gibt?

- was soll eigentlich die dritte Zahl (sofern vorhanden)?

(Ich denke, die Fragen sollte hauptsächlich der OP beantworten)
Last edited: 2014-03-11 13:56:46 +0100 (CET)