Czy istnieje wyrażenie regularne zgodne z Perl, aby przyciąć białe znaki z obu stron napisu?

Question

Czy istnieje sposób, aby to zrobić w jednym wierszu?

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

Innymi słowy, usuń wszystkie początkowe i końcowe białe spacje z ciągu znaków.

Answer 1

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

lub

s/^\s+//, s/\s+$// for $x; 

Answer 2

Proszę bardzo: $x =~ s/\A\s*(.*?)\s*\z/$1/;

Answer 3

$ x = ~ s/(^ \ s +) | (\ s + $) // g;

Answer 4

$x =~ s/^\s*(.*?)\s*$/$1/; 

Answer 5

Albo to: s/\A\s*|\s*\Z//g

Answer 6

s/^\s*(\S*\S)\s*$/$1/ 

Answer 7

Moje pierwsze pytanie brzmi ... dlaczego? Nie widzę żadnego z rozwiązań pojedynczego regexp, które byłyby bardziej czytelne niż regexp, z którego zacząłeś. I na pewno nie są tak blisko.

#!/usr/bin/perl 

use strict; 
use warnings; 

use Benchmark qw(:all); 

my $a = 'a' x 1_000; 

my @x = (
     " $a ", 
     "$a ", 
     $a, 
     " $a" 
     ); 

cmpthese(-5, 
     { 
      single => sub { 
       for my $s (@x) 
       { 
        my $x = $s; 
        $x =~ s/^\s+|\s+$//g; 
       } 
      }, 
      double => sub { 
       for my $s (@x) 
       { 
        my $x = $s; 
        $x =~ s/^\s+//; 
        $x =~ s/\s+$//; 
       } 
      }, 
      trick => sub { 
       for my $s (@x) 
       { 
        my $x = $s; 
        s/^\s+//, s/\s+$// for $x; 
       } 
      }, 
      capture => sub { 
       for my $s (@x) 
       { 
        my $x = $s; 
        $x =~ s/\A\s*(.*?)\s*\z/$1/ 
       } 
      }, 
      kramercap => sub { 
       for my $s (@x) 
       { 
        my $x = $s; 
        ($x) = $x =~ /^\s*(.*?)\s*$/ 
       } 
      }, 
     } 
     ); 

daje wyniki na mojej maszynie:

 
      Rate single capture kramercap  trick double 
single  2541/s  --  -12%  -13%  -96%  -96% 
capture 2902/s  14%  --  -0%  -95%  -96% 
kramercap 2911/s  15%  0%  --  -95%  -96% 
trick  60381/s  2276%  1981%  1974%  --  -7% 
double 65162/s  2464%  2145%  2138%  8%  -- 

Edit: Runrig jest w porządku, ale na niewiele się zmieniło. Zaktualizowałem kod, aby skopiować ciąg przed modyfikacją, co oczywiście spowalnia działanie. Uwzględniłem też sugestię Briana d Foy'a w innej odpowiedzi na użycie dłuższego łańcucha (choć milion wydawał się przesadą). Sugeruje to jednak, że zanim wybierzesz styl sztuczki, zorientujesz się, jakie są długości twoich ciągów - zalety trick są zmniejszane za pomocą krótszych łańcuchów. Na wszystkich długościach testowałem jednak podwójne wygrane. I wciąż jest łatwiej w oczach.

Answer 8

Argumentując z herezją, dlaczego je w ogóle? Wszystkie powyższe rozwiązania są „poprawne” w tym, że przyciąć spacje po obu stronach napisu w jednym przejściu, ale nie są zbyt czytelne (a może oczekiwać this one). Jeśli publiczność twojego kodu nie składa się z koderów Perla na poziomie eksperta, każdy z powyższych kandydatów powinien mieć komentarz opisujący to, co robią (prawdopodobnie i tak dobry pomysł). Natomiast te dwie linie osiągnąć to samo bez użycia lookaheads, symbole wieloznaczne, midichlorines ani niczego, co nie jest od razu oczywiste dla programisty umiarkowanego Doświadczenie:

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

Jest (prawdopodobnie) hitem wydajności, ale jako o ile nie chodzi ci o kilka mikrosekund przy wykonaniu, wartość dodana będzie warta tego. MOIM ZDANIEM.

Answer 9

Funny powinno przynieść to do góry!

Niedawno przeczytałem an article analyzing the performance of twelve (!) different trim implementations.

Chociaż artykuł specjalnie używa realizację regex JavaScript, używa składni Perl, więc myślę, że to apropos do tej dyskusji.

Answer 10

Tanktalus przedstawia wzorzec dla bardzo małych strun, ale problemy gorzej jak struny stają się coraz większe.W swoim kodzie, zmieniłem górną część:

my $a = 'a' x 1_000_000; 

my @x = (
    " $a ", 
    "$a ", 
    $a, 
    " $a" 
); 

mogę uzyskać te wyniki:

  Rate single capture trick double 
single 2.09/s  -- -12% -98% -98% 
capture 2.37/s  13%  -- -98% -98% 
trick 96.0/s 4491% 3948%  --  -0% 
double 96.4/s 4512% 3967%  0%  -- 

jako łańcuch robi się coraz większy, używając „trick” i „podwójne” są prawie takie same, a powszechne rozwiązanie, do którego dąży większość ludzi, "singiel" (w tym ja, ponieważ nie mogę złamać tego nawyku, mimo że to wiem), naprawdę zaczyna ssać.

Ilekroć patrzysz na wskaźnik, pomyśl o tym, co mówi. Aby sprawdzić, czy je rozumiesz, zmień dane i spróbuj ponownie. Uczyń tablice długimi, skalarami dużymi i tak dalej. Utwórz pętle, greps lub wyrażenia regularne znajdź rzeczy na początku, środku i końcu. Sprawdź, czy nowe wyniki pasują do Twojej prognozy. Dowiedz się, jaki jest trend. Czy wydajność jest coraz lepsza, zbliża się do limitu, szczyt zaczyna spadać, czy coś innego?

Answer 11

zwykle zrobić to tak:

($foo) = $foo =~ /^\s*(.*?)\s*$/; 

Wszystko między czołowych miejsc i spacje są pogrupowane i wrócił, więc mogę przypisać ją do tej samej zmiennej starego.

Answer 12

$var1 =~ s/(^\s*)(.*?)(\s*$)+/$2/;