Necesito una funcion PERL para hacer TRIM

[Daniel Sol Llaven]

Saludos!!!

LA respuesta a tu pregunta son dos palabras que con el tiempo, sabras que 
son magicas:
Expresiones Regulares

On Tue, 7 Oct 1997, Jorge R Colaccini wrote:

> Como puedo hacer una funcion similar a la TRIM del BASIC, aquella que me

> $string="        abc  def 12345        ";
> conservando los interiores, de tal manera de obtener:
> $string="abc  def 12345",

bastaria con aplicar a la cadena dos expresiones regulares que 
substituyan los espacios iniciales y finales (respectivamente) por nada 
(quitandolos), que seria la forma facil, o con una que cambie la cadena 
por solo lo que esta despues de los espacios iniciales y antes de los 
finales (un poco mas rebuscada).

En fin, las susodichas son:

La sencillita:

$cadena="         abc def 12345           ";  
$cadena=~s/^\s*//; #quita espacios iniciales
$cadena=~s/\s*$//; #quita espacios finales
print $cadena; # para que se note que los quito


La rebuscadona:

$cadena="  abc def 12345 ";
$cadena=~s/^\s*(.*?)\s*$/$1/; #cambia toda la cadena por lo que este despues
                              #de los espacios iniciales y antes de los
                              #finales
print $cadena; # para que se note que los quito

Sale!, espero que te sirvan estas, estan provadas y todo, por lo que no 
debes tener problemas.

Para mayores explicaciones de como jalan, nomas ve la referencia, en la 
parte de expresiones regulares y del operador s// incluso viene un 
ejemplo igualito al problema.

?Verdad que Perl es tan bueno que hasta podria ser argentino?
De los peores bromistas: Daniel Sol Llaven

Bolo Lacertus: lacertus@servidor.dgsca.unam.mx			==~\___\
http://132.248.71.81/cgi-bin/lacertus/hola			 =__vvvv
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/GE/GED d>d? s:+ a-- C++>+++$ US+++$ P++++$ L E? W++>+++ N++ o? K- 
w--- O !M V-- PS+ PE-- Y+ PGP++ t+ 5? X- R@ tv-- b++@- DI++ D+ G++ e+>++ 
h* r++(*) z+ 
------END GEEK CODE BLOCK------