Función Trim

[sanchezl]

Hola a todos. Quisiera saber si existe en PERL una función equivalente al trim de PHP. La función trim de PHP toma una cadena y elimina todos sus espacios en blanco a izquierda y derecha.

Gracias a todos por vuestra ayuda.


-------------------------------------------------------------------
Por si ha alguien le interesa o le pueda servir:

sub trim{
$cadena = $_[0];
$cadena =~ s/^( )+//g;
$cadena =~ s/( )+$//g;
return ($cadena);
}

Un saludo.

[kidd]

Hola...asi es como lo haria

Código:

sub trim{

my $cadena = shift;

     $cadena =~ s/^\s*//g;  #Eliminar los espacios a la izquierda
     $cadena =~ s/\s*$//g;  #Eliminar los espacios a la derecha

return($cadena);

}