Perl: funkcja do przycinania wiodących i końcowych białych znaków ciągu

Czy istnieje funkcja wbudowana do przycinania wiodących i końcowych białych znaków, tak że trim(" hello world ") eq "hello world"?

Oto jedno podejście wykorzystujące wyrażenie regularne:

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

Perl 6 będzie zawierał funkcję przycinania:

$string .= trim;

Źródło: Wikipedia

Jest to dostępne w String :: Util za pomocą trimmetody:

^{Uwaga redaktora: String::Utilnie jest to podstawowy moduł, ale można go zainstalować z CPAN za pomocą [sudo] cpan String::Util.}

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

wydruki:

ciąg to teraz „cześć”

Jednak łatwo jest zrobić to sam:

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

Nie ma wbudowanej trimfunkcji, ale możesz łatwo zaimplementować własną, używając prostego podstawienia:

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

lub używając niedestrukcyjnych podstawień w Perlu 5.14 i nowszych:

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

Według wątku tego perlmonka :

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

Wypełnij instrukcje w perfaq tutaj: http://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Dla tych, którzy używają Text :: CSV, znalazłem ten wątek, a następnie zauważyłem w module CSV, że możesz go usunąć za pomocą przełącznika:

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

Logika jest odwrotna w tym sensie, że jeśli chcesz rozebrać, ustaw na 1. Idź do figury. Mam nadzieję, że to pomoże każdemu.

Jedną z opcji jest Text :: Trim :

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

Zastosuj: s/^\s*//; s/\s+$//;do tego. Lub użyj, s/^\s+|\s+$//gjeśli chcesz być fantazyjny.

Używam również pozytywnego spojrzenia w przód, aby przyciąć powtarzające się spacje w tekście:

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

Nie, ale możesz użyć s///operatora podstawienia i \sasercji białych znaków, aby uzyskać ten sam wynik.