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:
Necesitas ser usuario para ver los enlaces
Crear Usuario Hacer SesionNecesitas ser usuario para ver los enlaces
Crear Usuario Hacer SesionNecesitas ser usuario para ver los enlaces
Crear Usuario Hacer SesionNew-Bytes
Autor