[Cascavel-pm] Melhorar a leitura de números grandes.

[fernandolouis em terra.com.br]

Acho que estou usando um metódo meio "tabajara" (ehehe) pra botar um "." em 
números que vão de 1000 à 99999.

$cnumber = 1500;

    if (length($cnumber) == 4) {
      @ponto = split(//,$cnumber);
      $ponto[4] = $ponto[3];
      $ponto[3] = $ponto[2];
      $ponto[2] = $ponto[1];
      $ponto[1] = ".";
      $result = join("", em ponto);
    }

print "$result"; # imprime 1.500

# -------------------------------- #

$cnumber = 25100;

    if (length($cnumber) == 5) {
      @ponto = split(//,$cnumber);
      $ponto[5] = $ponto[4];
      $ponto[4] = $ponto[3];
      $ponto[3] = $ponto[2];
      $ponto[2] = ".";
      $result = join("", em ponto);
    }

print "$result"; # imprime 25.100


alguma maneira mais simples?

[]s,
Fernando