[Perl] consulta

[Gunnar Wolf]

> Hola,
> yo soy novato en esto de perl, y mi pregunta me imagino que es muy sencil=
la
> para ustedes, como puedo hacer para leer una cadena de cualquier longitud=
 y
> dejarlo solo de 8 caracteres?

Hay muchas maneras:

$var =3D <STDIN>;   # Lee de la entrada est=E1ndar una l=EDnea
$var =3D substr($var,0,8); # Graba en $var los primeros ocho caracteres de =
$var
$var =3D~ s/^(.{8}).+/$1;  # Substituye la cadena completa por lo que est=
=E9
                         # en los primeros ocho caracteres
substr($var,8,length($var),'') # Guarda una cadena en blanco en vez de lo
                         # que haya despu=E9s del octavo caracter de $var

Y con algo de ingenio sacas muchas m=E1s :)

--=20

------------------------------------------------------------
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52)5623-1118
Desarrollo y Admon. de Sistemas en Red - FES Iztacala - UNAM
Departamento de Seguridad en Computo   -   DGSCA    -   UNAM
------------------------------------------------------------
Quidquid latine dictum sit, altum viditur.