Perl：修剪字符串前后空格的功能

是否有内置功能来修剪前导和尾随空白，例如trim(" hello world ") eq "hello world"？

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

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

Perl 6将包含修剪功能：

$string .= trim;

资料来源：维基百科

可在String :: Util中使用以下trim方法：

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

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

印刷品：

字符串现在是'hello'

但是，做自己很容易：

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

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

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

或在Perl 5.14和更高版本中使用非破坏性替换：

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

根据这个perlmonk的主题：

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

在此处的perfaq中完成howto：http ://learn.perl.org/faq/perlfaq4.html#How-do-I-strip-blank-space-from-the-beginning-end-of-a-string-

对于那些使用Text :: CSV的用户，我找到了该线程，然后在CSV模块中注意到可以通过开关将其删除：

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

逻辑倒退，因为如果要剥离，则将其设置为1。希望这对任何人都有帮助。

一种选择是Text :: Trim：

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

适用s/^\s*//; s/\s+$//;于它。或者 s/^\s+|\s+$//g如果您想花哨的话使用。

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

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

否，但是您可以使用s///替代运算符和\s空白断言来获得相同的结果。