1
Abra un nuevo programa Perl. Inserte el cursor al inicio del archivo
2
Escriba el siguiente código:
sub trim ($ ) {
my $ string = cambio ; < . br>
$ string = ~ s /\\ s + $ //;
retorno $ cadena ;
}
Esta función crea un archivo temporal que toma el valor de la cadena que se pasa a la función . A continuación, utiliza una expresión regular para eliminar los espacios finales . El " \\ s " indica a la función de mirar sólo por espacios en blanco y el "$" dice que mirar sólo al final de la cadena. Después de quitar los espacios finales , la función devuelve la variable en el programa principal.
3
Guardar el archivo de programa .