por explorer » 2010-01-02 12:54 @579
Using perl Syntax Highlighting
my $nueva_cadena = '';
my $vieja_cadena = $cadena;
while ($vieja_cadena) {
my $cacho = substr $vieja_cadena, 0
, 4; # Sacamos una parte, por la izquierda
$vieja_cadena = substr $vieja_cadena, 4; # Recortamos la $vieja_cadena
$nueva_cadena = $nueva_cadena . $cacho . ' '; # Añadimos la parte a la $nueva_cadena
}
chop $nueva_cadena; # Quitamos último espacio en blanco, que sobraColoreado en 0.002 segundos, usando
GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES