Perl: hàm để cắt bỏ khoảng trắng ở đầu và cuối chuỗi

Có một chức năng tích hợp để cắt bỏ khoảng trắng đầu và cuối như vậy trim(" hello world ") eq "hello world"không?

Đây là một cách tiếp cận sử dụng biểu thức chính quy:

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

Perl 6 sẽ bao gồm một chức năng cắt:

$string .= trim;

Nguồn: Wikipedia

Điều này có sẵn trong String :: Util với trimphương thức:

^{Lưu ý của người biên tập: String::Utilkhông phải là một mô-đun cốt lõi, nhưng bạn có thể cài đặt nó từ CPAN với [sudo] cpan String::Util.}

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

bản in:

chuỗi bây giờ là 'xin chào'

Tuy nhiên, bạn có thể dễ dàng thực hiện:

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

Không có trimchức năng tích hợp sẵn, nhưng bạn có thể dễ dàng triển khai chức năng của riêng mình bằng cách thay thế đơn giản:

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

hoặc sử dụng thay thế không phá hủy trong Perl 5.14 trở lên:

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

Theo chủ đề của perlmonk này :

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

Hoàn thành cách thực hiện trong perfaq tại đây: http://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Đối với những người đang sử dụng Văn bản :: CSV, tôi đã tìm thấy chuỗi này và sau đó nhận thấy trong mô-đun CSV rằng bạn có thể loại bỏ nó thông qua chuyển đổi:

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

Logic ngược lại ở chỗ nếu bạn muốn loại bỏ thì bạn đặt thành 1. Đi hình. Hy vọng điều này sẽ giúp bất cứ ai.

Một tùy chọn là Text :: Trim :

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

Áp dụng: s/^\s*//; s/\s+$//;cho nó. Hoặc sử dụng s/^\s+|\s+$//gnếu bạn muốn lạ mắt.

Tôi cũng sử dụng một lookahead tích cực để cắt bớt các khoảng trống lặp lại bên trong văn bản:

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

Không, nhưng bạn có thể sử dụng s///toán tử thay thế và \sxác nhận khoảng trắng để nhận được cùng một kết quả.