sonucu yuvarlamadan görüntülemem lazım?

[webmeraklisi]

merhaba aşağıdaki kodda çarpmanın sonucu virgüllü ama virgüllü sonucu yuvarlıyor oysa bana o şekilde lazım...o şekilde yazdırmam gerekiyor yani yuvarlamadan aynı çıktığı şekilde ne yapmam lazım


if($alan_adi eq "fiyat"){
if($gec ne "0"){
$efektifs_usd =~ s/,//g;
$efektifs_euro =~ s/,//g;
$fiyat=$gec;
if ($para_b==2){
$fiyat=$fiyat*975/1000;
}else{
$fiyat=$fiyat*975/1000;
}
if ($para_b==2){
$fiyathavalen1=$fiyat."\€ +KDV";
$fiyathavale1.="<font face=\"verdana, helvetica, arial\" size=1 color=#cc0000><b>$fiyathavalen1</b></font>";
}else{
$fiyathavalen1=$fiyat."\$ +KDV";
$fiyathavale1.="<font face=\"verdana, helvetica, arial\" size=1 color=#cc0000><b>$fiyathavalen1</b></font>";
}
}
}
teşekkürler

[Ansugo]

Stringi ya da çarpmayı float olarak tanımlamayı dene.

[webmeraklisi]

nasıl yapacağım açıklayıcı olurmusunuz soruyu biraz daha açayım
mesela benim elimde 16 dolarım var bunun üzerinden indirim yapacağım...bunu da kesirli sayıyla çarparak yapıyorum 16$x0.975=15,6 sonuç bu ben 15,6$'yıda başka bir sayıyla çarpacağım ama perl kodu 15,6$'yı yuvarlıyor...15$ olarak alıyor...işte sorun bu ben yuvarlamasını istemiyorum aynen 15,6 olarak kullanmak istiyorum

[Ansugo]

#!/perl

$dolar = 20;
$katsayi = 0.795;
$baskasayi = 35;
$gecici = 0.0;

$gecici = $dolar * $katsayi;
print STDOUT "$gecici\n";
$gecici = $gecici * $baskasayi;
print STDOUT "$gecici\n";
#sleep 5;


Yukarıdaki kod ekrana önce 15.9 sonra 556.5 basıyor.

[webmeraklisi]

tamam çok teşekkürler