Coole Perl-Features: Zifferngruppierung
Seit nunmehr neun Jahren(*) programmiere ich in Perl, mal Tag und Nacht und dann wieder längere Zeit überhaupt nicht. Hätte ich die gleiche Zeit in eine andere Sprache investiert, wäre ich wohl ein wahrer Meister dieser Sprache. In Perl aber empfinde ich mich als höchst mittelmäßig. Das wird mir regelmäßig bewusst, wenn ich in Damian Conways ‘Perl Best Practices’ schmökere; ganz besonders aber dann, wenn ich über ein neues cooles Feature in Perl stolpere, das mir bis dato völlig unbekannt war.
Ein aktueller derartiger Fall ist die in Perl vorgesehene Möglichkeit zur Zifferngruppierung. Mit Hilfe des Unterstrichs kann ich größere Zahlen so schreiben, dass die Größenordnung auf einen Blick deutlich wird:
use constant BDB_CACHESIZE => 64_000_000;
use constant BDB_PAGESIZE => 8_192;
(Ja ich habe Conways Tipp, use constant nicht zu benutzen, gelesen. Allerdings halte ich es für absoluten Unsinn, für ein derartiges Core-Feature wie die Benutzung von Konstanten ein Nicht-Core-Modul installieren zu müssen. Bekanntlich vermeide ich ja alle Möglichkeiten, mich irgendwelchen CPAN-Problemen auszusetzen.)
Und wer nicht glaubt, dass das wirklich funktioniert, soll’s doch einfach mal ausprobieren:
macbook:~ sf$ perl -e '$a=4_000; print $a/8;'
500
(*) Ich glaube zumindest, dass ich 1998 damit begonnen habe. Meine Erinnerung ist da etwas unscharf. Aber um den Dreh rum habe ich jedenfalls meinen ersten Webspace-Account mit CGI-Unterstützung gemietet, so dass sich das hingehen müsste.

Save This Page
Ich denke, dass es nur relativ wenig wirkliche Meister der Perl-Programmierung gibt. Zu viele Möglichkeiten bietet Perl. Aber genau deswegen mag ich die Sprache so sehr – da wird es nie langweilig…
Ich stimme Dir absolut zu, dass man durchaus constant benutzen kann. Man muss auch bei anderen Sachen nicht immer mit Conway übereinstimmen. Vieles ist halt persönliche Einstellung. Aber zum Glück kann man Perl::Critic seinen eigenen Vorstellungen anpassen.
Gruß,
Renée