Zahlen formatieren

Chernoby

Mitglied
Hallo,

ich habe ein Script zum Auswerten einer Statistik für Bannerviews.
Da die Zahlen bereits über 10.000.000 hinausgehen würde ich gerne, dass die Zahlen etwas übersichtlicher angezeigt werden.

z.B.: anstatt 10000000 soll 10.000.000 da stehen.

Wie kann ich das machen, dass immer nach 3 Nullen ein Punkt erscheint?
 
Eine ein bisschen freundlichere Frage, ob ich dir das Script nicht schreiben könnte, hätte es auch getan ... ;)

Code:
#!/usr/bin/perl
# formatdigits.pl

use strict;
use CGI::Carp qw(fatalsToBrowser);

my $input = '1000000000000000';
my $str; 
my $i = 0;
my $z = 0;
my $output;

$str = reverse($input);

while ($z < length($str)) {
  if ($i == 3) {
    $output .= '.';
    $i = 0;
  }
  
  $output .= substr($str, $z, 1); 
  $i++;
  $z++;
}

$output = reverse($output);

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Digits-(Re-)Formatter</title></head><body>\n";
print qq~
Input: $input;
Str: $str;
Output: $output;
~;
 

Neue Beiträge

Zurück