Perl – Lange Zahlen mit Tausender Trennpunkten versehen
Das hier vorgestellte Perl Script formatiert beliebig lange Zahlen mit Tausender Trennpunkten. Dabei werden etwaige Nachkommastellen nicht getrennt.
Beispiel anhand eines kompletten Scriptes
CODE:
#!/usr/bin/perl #Fehlerausgabe an Browser use CGI::Carp qw(fatalsToBrowser); use strict; print "Content-type: text/html\n\n"; # Das Zahlenarray, ohne Tausender Trennpunkte my @zahlen = ( "1054000987,87577655", "4322000987,18845", "62000987,18", "7792000987,456" ); my $ausgabe = ''; foreach my $anzahl (@zahlen) { print $ausgabe = wandler($anzahl) ."<br>n"; } # Die Subroutine zum einsetzen der Tausender Trennpunkte sub wandler { my $zahl = shift; my $text = reverse $zahl; $text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g; return scalar reverse $text; }
Ausgabe:
1.054.000.987,87577655
4.322.000.987,18845
62.000.987,18
7.792.000.987,456
Keine Kommentare vorhanden