Using perl Syntax Highlighting
my @nueva_cadena = split //, $cadena; # La cadena la pasamos a vector
for (my $i = 4; $i < @nueva_cadena; $i += 4) { # Recorremos el vector de 4 en 4
splice @nueva_cadena, $i++, 0, ' '; # En esas posiciones, insertamos un ' '
}
my $nueva_cadena = join '', @nueva_cadena; # Pasamos de vector a escalar
for (my $i = 4; $i < @nueva_cadena; $i += 4) { # Recorremos el vector de 4 en 4
splice @nueva_cadena, $i++, 0, ' '; # En esas posiciones, insertamos un ' '
}
my $nueva_cadena = join '', @nueva_cadena; # Pasamos de vector a escalar
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4