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 SesionPara ver los enlaces debes ser usuario
Crear Usuario o
Hacer SesionPara ver los enlaces debes ser usuario
Crear Usuario o
Hacer SesionNew-Bytes
Autor