Funcion TRIM (LTRIM Y RTRIM) Eliminar Espacios En blancos de un String.

[OzX]

 La Funcion "Trim" No viene por defecto en el lenguaje perl, pero gracias a las expresiones regulares podremos obtener el mismo efecto.

TRIM (Elimina Espacios el Inicio y al Final de un String)
LTRIM (Elimina Espacios en Blanco en el Inicio del String)
RTRIM (Elimina Espacios en Blanco al Final del String)


Tenemos el Siguiente String

#\t , es un Espacio Tabulador.
$string="\t New-Bytes";
print $string;

Ahora Crearemos una Funcion TRIM para eliminar los espacios del inicio y final del String.

Codigo:

#!/usr/bin/perl

$string = " \t New-Bytes ";
print trim($string)."\n";

sub trim()
{
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}

Explicacion:

#~s/A/B/;= Sustituye A por B
# ^ = Solo al Inicio del String
#\s = Espacios en Blanco
#+ = Con este cuantificador decimos algo que puede aparecer una o más veces. Este lo usamos cuando queremos que algo aparezca por lo menos una vez.
#$= Solo al Final.

Funcion LTRIM (Elimina Espacios En Blanco en el Inicio)

$string = " \t New-Bytes \n";
print trim($string)."\n";

sub ltrim()
{
$string =~ s/^\s+//;
return $string;
}

Funcion RTRIM (Elimina Espacios al Final)

#!/usr/bin/perl

$string = " \t New-Bytes \n";
print trim($string)."\n";

sub rtrim()
{
$string =~ s/\s+$//;
return $string;
}

Bibliografia:


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion


New-Bytes

[Aleks]

Excelente la forma en que has logrado implementar las famosas funciones Trim en perl, se te agradece OZX!

[OzX]

jejejej

trim bastante util en base de datos para no tener dramas con los espacios...
:=)

[Aleks]

 

Por eso dije, y de verdad es muy ingenioso tu método OzX!

Suerte men, que bueno verte mas seguido por el foro!