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
Weitere Beiträge
[blogposts orderby=“date“ order=“desc“ layout=“small“ category_name=““ tag=““]