Забыл как в Перл отрезать пару символов после запятой.
есть: 7.22642807983482
надо сделать: 7,22

• в Перл отрезать пару символов после запятой,Вася, 13:20 , 15-Май-04
  • в Перл отрезать пару символов после запятой,StasV, 13:41 , 15-Май-04
    • в Перл отрезать пару символов после запятой,Асен Тотин, 22:15 , 15-Май-04
      • в Перл отрезать пару символов после запятой,Асен Тотин, 22:17 , 15-Май-04
      • в Перл отрезать пару символов после запятой,StasV, 01:26 , 16-Май-04

>Забыл как в Перл отрезать пару символов после запятой.
>есть: 7.22642807983482
>надо сделать: 7,22
sprintf юзай
например:

$d=7.22642807983482;
$dn=sprintf('%.2f',$d);
print $dn;

'%.2f' 2 - это требуемое кол-во знаков после запятой после округления числа, ставишь требуемое значение.
Удачи.

Так отлично :) Спасибо, только как сделать чтобы не округлялось?
Нужно именно не округлить, а просто отсечь.
Заранее Вам спасибо.

Привет,

Дешево и сердито:

$d=7.22642807983482;
$d = (int($d*100))/100;

Если нужно другое количество знаков, меняеш число 100...

WWell,

... Хотя можно и чуть умнее, например:

$d=7.22642807983482;
@dd = split (/\./,$d);
$dd[1] = (int($dd[1]*100))/100;
$d = "$dd[0].$dd[1]";

WWell,

>Привет,
>
>Дешево и сердито:
>
>$d=7.22642807983482;
>$d = (int($d*100))/100;
>
Этот пример подошел, спасибо, а следующий нет :)