[Perl] =?ISO-8859-1?Q?a=F1adir?= a cadenas

[Roberto Andrade Fonseca]

Hola:

El jue, 13-12-2001 a las 10:57, Ra=FAl Arg=E1ez escribi=F3:
> Hola listeros !
>=20
> Creo que mi duda es demasiado tonta, sin embargo si no pregunto no
> aprendo ...
> necesito a=F1adir a una cadena otra cadena, algo asi como=20
> $a=3D124
> tiene que quedar=20
> $a=3D1234=20

Mi soluci=F3n aprovechando la funci=F3n substr, ejecuta perldoc -f substr:

--------------------------
#!/usr/bin/perl -w

# Cadenas de prueba
$cadena =3D 'micadenaprincipal';
$cadenita =3D '+++';

# Lugar en donde insertaremos la $cadenita
$punto_insercion =3D 4;

# El cero (0) es para no sobreescribir ning=FAn caracter
substr($cadena, $punto_insercion, 0, $cadenita) ;
print "Nueva cadena: $cadena \n";

$cadena =3D 'micadenaprincipal';

# Nuevo punto de inserci=F3n
$punto_insercion =3D 6;
substr($cadena, $punto_insercion, 0, $cadenita) ;
print "Nueva cadena: $cadena \n";
---------

Espero que te sirva.
--=20
Saludos,

Roberto Andrade Fonseca
randrade@abl.com.mx