Perl: función para recortar los espacios en blanco iniciales y finales de la cadena

¿Existe una función incorporada para recortar los espacios en blanco iniciales y finales trim(" hello world ") eq "hello world"?

Aquí hay un enfoque que usa una expresión regular:

$string =~ s/^\s+|\s+$//g ;     # remove both leading and trailing whitespace

Perl 6 incluirá una función de recorte:

$string .= trim;

Fuente: Wikipedia

Esto está disponible en String :: Util con el trimmétodo:

^{Nota del editor: String::Utilno es un módulo principal, pero puede instalarlo desde CPAN con [sudo] cpan String::Util.}

use String::Util 'trim';
my $str = "  hello  ";
$str = trim($str);
print "string is now: '$str'\n";

huellas dactilares:

la cadena ahora es 'hola'

Sin embargo, es bastante fácil hacerlo usted mismo:

$str =~ s/^\s+//;
$str =~ s/\s+$//;

No hay una trimfunción incorporada, pero puede implementar fácilmente la suya con una simple sustitución:

sub trim {
    (my $s = $_[0]) =~ s/^\s+|\s+$//g;
    return $s;
}

o usando sustitución no destructiva en Perl 5.14 y posteriores:

sub trim {
   return $_[0] =~ s/^\s+|\s+$//rg;
}

De acuerdo con el hilo de este perlmonk :

$string =~ s/^\s+|\s+$//g;

Complete cómo en el perfaq aquí: http://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Para aquellos que están usando Text :: CSV, encontré este hilo y luego noté dentro del módulo CSV que podía eliminarlo a través del interruptor:

$csv = Text::CSV->new({allow_whitespace => 1});

La lógica es al revés en el sentido de que si quieres desnudarte, entonces lo pones en 1. Vaya figura. Espero que esto ayude a alguien.

Una opción es Text :: Trim :

use Text::Trim;
print trim("  example  ");

Aplicar: s/^\s*//; s/\s+$//;a él. O utilícelo s/^\s+|\s+$//gsi quiere ser elegante.

También utilizo una búsqueda anticipada positiva para recortar los espacios repetidos dentro del texto:

s/^\s+|\s(?=\s)|\s+$//g

No, pero puede usar el s///operador de sustitución y la \saserción de espacios en blanco para obtener el mismo resultado.