Snipplet :: Währungsformatierung

Kategorie: Scalare

Mit der folgenden Funktion lassen sich sowohl einfache Zahlenwerte in Währungsstring konvertieren, als auch über einen Faktor, in eine andere Währung umrechnen:

$wert=&format_price('123,23','EUR',2,1.95583) ;
$wert=&format_price('123,231212','DM') ;

sub format_price {

my ($val,$sign,$amount,$div)=@_ ;

$amount =~ s/\D//g ;
$amount=1 unless ($amount>0) ;

$val =~ s/\,/\./g ;

if ($div>0) {
 $val =  $val/$div ;
 $val =  sprintf "%0.2f" , $val ;
}

$val *= $amount ;
$val =  sprintf "%0.2f $sign" , $val ;
$val =~ s/\./\,/g ;
1 while $val =~ s/^(-?\d+)(\d{3})/$1.$2/ ;

return ($val) ;

}

Dieses Unterprogramm kann einfach in jedes Script kopiert und verwendet werden.