Perl：修剪字符串前导和尾随空格的函数

Question

是否有内置函数来修剪前导和尾随空格，以便trim(" hello world ") eq "hello world"？

Answer 1

以下是使用正则表达式的一种方法：

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

Perl 6将包含一个修剪功能：

$string .= trim;

来源：Wikipedia

Answer 2

使用trim方法在String::Util中可以使用此功能：

^{编者注：String::Util不是核心模块，但您可以使用[sudo] cpan String::Util从CPAN安装。}

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

打印：

  

字符串现在是'你好'

然而，自己做起来很容易：

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

Answer 3

没有内置的trim功能，但您可以使用简单的替换轻松实现自己的功能：

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

或在Perl 5.14及更高版本中使用non-destructive substitution：

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

Answer 4

根据this perlmonk's thread：

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

Answer 5

在这里完成指导： http://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

Answer 6

我还使用正向前瞻来修剪文本中的重复空格：

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

Answer 7

一个选项是Text::Trim：

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

Answer 8

对于那些使用Text :: CSV的人，我找到了这个帖子，然后在CSV模块中注意到你可以通过开关将其剥离出来：

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

逻辑是向后的，如果你想剥离，那么你设置为1.去图。希望这对任何人都有帮助。

Answer 9

申请：s/^\s*//; s/\s+$//;。如果你想要花哨，可以使用s/^\s+|\s+$//g。

Answer 10

不，但您可以使用s///替换运算符和\s空格断言来获得相同的结果。