So ganz hab ich deinen Beitrag nicht verstanden.
Und was ist ein Geschenk? Das Skript?
Wenn ja, dann ist es ein eher wackliges Geschenk.

warnings und strict raus geht garnicht.
Zeile 14: sieht sehr komisch aus.
Zeile 21: fehlen Anker (z.B. ^ und $)
Zeile 33: das unless schaut gefährlich aus. 0 ist auch unless
Zeile 48: schaut falsch aus. Da reichts wenn eine einzige Ziffer vorkommt und du versuchst 1 abzuziehen.

Und das war erst der erste Blick. Vertief lieber erst deine Perlkenntnisse und leg dann deinen Fokus auf was anderes, wie z.B. Schnelligkeit.


edit: und dann seh ich grad, dass die Abfrage in Zeile 38 bei jedem Element durchgeführt wird? Sagtest du nicht das soll schnell werden?
Lass das sein, üb Perl, ganz ohne schnell und sonstigen Voodoo und in ein paar Jahren, wenn du das Gefühl hast du bist in Perl halbwegs sicher unterwegs kannst du mit Schnelligkeit anfangen.

Das ist ungefähr, wie wenn du am Klavier darauf hintrainierst einen Bach möglichst schnell zu spielen, benutzt aber nur die 2 Zeigefinger.
Last edited: 2017-05-02 15:20:18 +0200 (CEST)