numerische notationen in Perl

[BAKKA]

Hailo...
is zwar n bischen kompliziert und nicht sehr elegant, aber es funktioniert

$i=0.333333;   #i ist deine zahl..

@erg=split(/./,$i);
@nachkomma=split(//,$erg[1]);
@ergebnis="$erg[0],.,$nachkomma[0],$nachkomma[1]";
$wert=join("",@ergebnis);
$wert=~s/,//g;
print $wert."\n";

Viel spass (oder glueck?)

BAKKA