• Publicidad

Duda sobre tratamiento string

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

Duda sobre tratamiento string

Notapor fgalves » 2006-12-08 08:18 @387

Hola a todos,

El caso es que quiero implementar una función que me devuelva los dos primeros caracteres de cualquier string (sea cual sea su longitud). ¿Que os parece el siguiente codigo?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my $long = length($_from);
return substr($_from, -$long, -$long+2);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿Hay alguna forma más directa de hacerlo?

¡Muchas gracias!
Felipe
fgalves
Perlero nuevo
Perlero nuevo
 
Mensajes: 210
Registrado: 2006-09-25 13:54 @621

Publicidad

Notapor explorer » 2006-12-08 08:29 @395

Yo creo que sí...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
# que me devuelva los dos primeros caracteres
return substr( $_from, 0, 2 );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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

Notapor fgalves » 2006-12-11 03:30 @187

Muchísimas gracias, Explorer.

En serio, me ayudas muchísimo con todas tus aportaciones y cada día me siento mas competente en Perl y todo gracias a ti. Me gustaría que me dieras tu dirección PAYPAL para darte un donativo personalmente pues ya son demasiadas las veces que me has ayudado desinteresadamente y yo quiero retribuírtelo con todo el placer del mundo.

Muchas gracias.
Un cordial saludo,
Felipe
fgalves
Perlero nuevo
Perlero nuevo
 
Mensajes: 210
Registrado: 2006-09-25 13:54 @621

Notapor dovier_antonio » 2006-12-14 11:16 @511

También se puede hacer del siguiente modo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$_from =~ /^../;
return $&;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Saludos cordiales,
Dovier Antonio Ripoll Méndez
"...Si el universo fuese un programa estaría implementado en Perl, y correría sobre un Sistema Operativo GNU/Linux..."

$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
Avatar de Usuario
dovier_antonio
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2005-05-27 14:21 @639
Ubicación: Ciudad de la Habana, Cuba


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 12 invitados

cron