珀尔 | 删除前导和尾随空格（修剪）

在 Perl 中，我们经常需要处理字符串数据。字符串中可能会存在前导或者尾随空格，我们可以使用 Perl 内置函数 trim 来删除这些空格。

语法

my $string = "   Hello, World!   ";
$string =~ s/^\s+|\s+$//g;
print "$string\n";

解释

• s/^\s+|\s+$//g：使用正则表达式来匹配字符串中的前导或尾随空格，并将它们替换为 ''
• ^：表示字符串的开头
• $：表示字符串的结尾
• \s：表示空白字符
• +：表示匹配一个或多个前导或尾随空格
• g：表示进行全局替换，即替换字符串中所有的匹配项

示例

my $string1 = "   Hello, World!   ";
my $string2 = "Goodbye, Cruel World!     ";

$string1 =~ s/^\s+|\s+$//g;
$string2 =~ s/^\s+|\s+$//g;

print "$string1\n"; # Output: "Hello, World!"
print "$string2\n"; # Output: "Goodbye, Cruel World!"

实现细节

在 Perl 中，我们可以使用以下任意一种方式来实现删除字符串前导和尾随空格：

$string =~ s/^\s*//;
$string =~ s/\s*$//;
$string =~ s/^\s+|\s+$//g;
$string =~ s/^\s*(.*?)\s*$/$1/;
$string =~ s/(\A\s+|\s+\z)//g;

需要注意的是，这些方法可能会在一些特殊情况下出现错误，比如当字符串中存在内嵌的空格时。此时，我们可以考虑使用第五种方式，即使用 \A 和 \z 来匹配字符串的开头和结尾。