Có biểu thức chính quy tương thích Perl để cắt khoảng trắng từ cả hai mặt của chuỗi không?

Question

Có cách nào để thực hiện điều này trong một dòng không?

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

Nói cách khác, xóa tất cả khoảng trắng đầu và cuối khỏi chuỗi.

Answer 1

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

hoặc

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

Answer 2

Ở đây bạn đi: $x =~ s/\A\s*(.*?)\s*\z/$1/;

Answer 3

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

Answer 4

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

Answer 5

Hoặc này: s/\A\s*|\s*\Z//g

Answer 6

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

Answer 7

câu hỏi đầu tiên của tôi là ... tại sao? Tôi không thấy bất kỳ giải pháp đơn regexp nào có thể đọc được nhiều hơn regexp mà bạn đã bắt đầu. Và họ chắc chắn không phải ở đâu gần như nhanh.

#!/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*$/ 
       } 
      }, 
     } 
     ); 

cho kết quả trên máy tính của tôi:

 
      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%  -- 

Sửa: runrig là đúng, nhưng để thay đổi chút. Tôi đã cập nhật các mã để sao chép chuỗi trước khi sửa đổi, trong đó, tất nhiên, làm chậm mọi thứ xuống. Tôi cũng tính đến gợi ý của brian d foy trong câu trả lời khác để sử dụng chuỗi dài hơn (mặc dù một triệu người có vẻ như quá mức cần thiết). Tuy nhiên, điều đó cũng gợi ý rằng trước khi bạn chọn kiểu lừa, bạn tìm ra chiều dài chuỗi của bạn như thế nào - những ưu điểm của mẹo được giảm bớt bằng các chuỗi ngắn hơn. Ở tất cả các độ dài tôi đã thử nghiệm, mặc dù, đôi thắng. Và nó vẫn còn dễ dàng hơn trên mắt.

Answer 8

Tranh luận về giả thuyết, tại sao phải làm như vậy? Tất cả các giải pháp trên là "chính xác" ở chỗ chúng cắt khoảng trắng từ cả hai mặt của chuỗi trong một lần truyền, nhưng không có gì có thể đọc được một cách khủng khiếp (có thể là this one). Trừ khi đối tượng cho mã của bạn bao gồm các lập trình viên Perl cấp chuyên gia, mỗi ứng cử viên trên phải có nhận xét mô tả những gì họ làm (có thể là một ý tưởng hay). Ngược lại, hai dòng này thực hiện được điều tương tự mà không sử dụng lookaheads, kí hiệu, midichlorines hoặc bất cứ điều gì đó không phải là ngay lập tức hiển nhiên đối với một lập trình viên kinh nghiệm trung bình:

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

Có (cho là) ​​một buổi biểu diễn hit, nhưng như miễn là bạn không quan tâm đến một vài micro giây khi thực thi khả năng đọc được thêm sẽ đáng giá. IMHO.

Answer 9

Hài hước bạn nên làm điều này!

Gần đây tôi đã đọc an article analyzing the performance of twelve (!) different trim implementations.

Mặc dù bài viết cụ thể sử dụng triển khai thực hiện regex JavaScript, nó sử dụng cú pháp Perl, vì vậy tôi nghĩ rằng đó là apropos cho cuộc thảo luận này.

Answer 10

Tanktalus hiển thị điểm chuẩn cho các chuỗi rất nhỏ, nhưng các vấn đề trở nên tồi tệ hơn khi các chuỗi trở nên lớn hơn.Trong mã của mình, tôi đã thay đổi phần trên:

my $a = 'a' x 1_000_000; 

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

tôi nhận được những kết quả này:

  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%  -- 

Như chuỗi lớn hơn, sử dụng "lừa" và "kép" là gần như giống nhau, và giải pháp phổ biến mà hầu hết mọi người đi cho, "duy nhất" (bao gồm cả tôi, bởi vì tôi không thể phá vỡ thói quen đó mặc dù tôi biết điều này), thực sự bắt đầu hút.

Bất cứ khi nào bạn nhìn vào điểm chuẩn, hãy suy nghĩ về những gì nó cho bạn biết. Để xem bạn có hiểu hay không, hãy thay đổi dữ liệu và thử lại. Tạo các mảng dài, vô hướng lớn, v.v. Tạo vòng lặp, greps hoặc regexes tìm nội dung ở đầu, giữa và cuối. Xem liệu kết quả mới có khớp với dự đoán của bạn không. Tìm ra xu hướng là gì. Liệu hiệu suất có tốt hơn và tốt hơn, tiếp cận một giới hạn, đỉnh sau đó bắt đầu giảm, hoặc cái gì khác?

Answer 11

Tôi thường làm điều đó như thế này:

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

Tất cả mọi thứ giữa các không gian hàng đầu và các dấu không gian được nhóm và trở về, vì vậy tôi có thể gán nó vào biến cũ.

Answer 12

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