perl | Eliminación de espacios en blanco iniciales y finales (recortar)

La eliminación de espacios no deseados de una string se puede usar para almacenar solo los datos necesarios y para eliminar los espacios finales innecesarios. Esto se puede hacer usando la función de recorte en Perl. La función de recorte utiliza una expresión regular para eliminar los espacios en blanco. No es una función de biblioteca, sino que la define el usuario cuando lo requiere. Los tipos de funciones de ajuste son:

• Recorte izquierdo (~ s/^\s+//) : elimina los espacios adicionales del lado izquierdo de la string hasta que comienza el texto real. Desde el extremo izquierdo, la string toma 1 o más espacios en blanco (\s+) y los reemplaza con nada.
• Recorte derecho (~ s/\s+$//) : elimina los espacios adicionales desde el extremo derecho de la string hasta que se alcanza el final del texto real. Desde el lado más a la derecha, la string toma 1 o más espacios en blanco (\s+) y lo reemplaza con nada.
• Recortar (~ s/^\s+|\s+$//) : elimina el espacio adicional de ambos lados de la string.

Ejemplo: El siguiente código demuestra el recorte izquierdo, el recorte derecho y el recorte en Perl:

   
# Perl program for removing leading and
# trailing white spaces using trim
  
#!/usr/bin/perl
  
# Original String
$str1 = "     Geeks----";
  
print"The Original String is:\n";
print"${str1}\n\n";
  
# Applying left trim to str1
print"After Lefttrim Str1:\n";
$str1=~ s/^\s+//;
print"${str1}\n\n";
  
# again initializing the 
# value to string
$str1 = "----Geeks     ";
  
# Applying right trim to str1
print"After Righttrim Str1:\n";
$str1=~ s/\s+$//;
print"${str1}\n\n";
  
# again initializing the 
# value to strings
$str1="      Geeks      ";
  
  
# Applying trim to str1
print"After trim Str1:\n";
$str1=~ s/^\s+|\s+$//g;
print"${str1}\n";

Producción:

The Original String is:
     Geeks----

After Lefttrim Str1:
Geeks----

After Righttrim Str1:
----Geeks

After trim Str1:
Geeks