2013-09-22T20:14:07 der_thomas

Ich danke euch für die Anmerkungen, den Code von hlubenow werde ich mir morgen genauer ansehen, ein kurzes reinkopieren und starten brachte ein 'Died at perl2.pl line 24.'

Wenn du die; durch die "Ursache: $!"; ersetzt, bekommst du auch eine Fehlermeldung.

Quote

Wegen use strict: Ich hatte dieses http://wiki.perl-community.de/Wissensbasis/Perl5Tu... Tutorial so verstanden dass 'use strict' automatisch mit 'use v5.12;' gestartet werden würde ?

Hast recht. Aber sowas kann ich mir nicht merken, ich benutze daher "use versionsnummer" eigentlich so gut wie nie, sondern nehme lieber z.B. "use feature qw(say);" als die entsprechende Version, finde ich besser lesbar.

Quote

Was ich aber überhaupt nicht nachvollziehen kann ist, warum sich dieses 'eq' statt '==' auf den else Zweig in der if Abfrage in Zeile 15-18 auswirkt ?

Tut es nicht. Du überprüft lediglich, ob 0 gleich 0 ist. Das ist wahr, daher läufst du immer in das erste return und erreichst das zweite if gar nicht. (es sei denn, dein Eingabesting fängt mit einer Zahl ungleich 0 an, dann ist der erste Vergleich nicht true.