programa - Perl: función para recortar los espacios en blanco y posteriores del hilo

perl vs python

Question

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

Answer 1

Aplicar: s/^/s*//; s//s+$//; s/^/s*//; s//s+$//; lo. O use s/^/s+|/s+$//g si quiere ser elegante.

Answer 2

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

Answer 3

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

Answer 4

De acuerdo con el hilo de este perlmonk :

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

Answer 5

Esto está disponible en String::Util con el método de trim :

^{Nota del editor: String::Util no 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 cuerda ahora es ''hola''

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

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

Answer 6

No hay función de trim 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 la sustitución no destructiva en Perl 5.14 y posterior:

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

Answer 7

No, pero puede usar el operador s/// sustitución y la aserción de /s whitespace para obtener el mismo resultado.

Answer 8

Para aquellos que están usando Text :: CSV, encontré este hilo y luego noté dentro del módulo CSV que podría quitarlo mediante el cambio:

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

La lógica es al revés porque si quieres desnudarte, debes establecerlo en 1. Ve figura. Espero que esto ayude a cualquiera.

Answer 9

También utilizo un lookahead positivo para recortar espacios repetitivos dentro del texto:

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

Answer 10

Una opción es Text::Trim :

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