• Publicidad

Insertar espacios

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Insertar espacios

Notapor xagutxu » 2007-11-25 12:44 @572

Hola a todos:

Quizás es una pregunta muy simple, pero no encuentro el modo de introducir un espacio en blanco entre los caracteres de una palabra; que funcione así: cosa -> c o s a.

Alguien me podría ayudar? Gracias...
xagutxu
Perlero nuevo
Perlero nuevo
 
Mensajes: 8
Registrado: 2007-11-25 12:39 @569

Publicidad

Notapor creating021 » 2007-11-25 16:36 @733

Esta es una forma:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my @letras = split "", $palabra;
print ( join " ", @letras );
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor explorer » 2007-11-25 21:06 @921

Esta es otra, con expresiones regulares:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$palabra =~ s/\B(.)/ $1/g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Lo que hace la expresión regular es buscar caracteres que están por detrás de cualquier cosa que no sea límite de palabra (vamos, aquella posición que está dentro de una palabra, entre dos caracteres), y lo sustituye por un espacio más ese propio carácter.

El resultado es que los caracteres de la $palabra que tienen al menos otro carácter delante suyo, se les inserta delante un espacio.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 12 invitados

cron