Skip to main content

Alles für die Homepage... Scripte, Templates, Workshops und Support

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

Anzeige


Ähnliche Beiträge



Keine Kommentare vorhanden


Du hast eine Frage oder eine Meinung zum Artikel? Teile sie mit uns!

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *