技术问询：如何在Perl6中移除字符串的最后一个字符？

DevOps 小满

2026-5-26

在Perl 6中移除字符串最后一个字符的几种方法

嘿，我来给你整理几个Perl 6里移除字符串最后一个字符的实用方法，都是日常开发里常用的：

使用chop函数（最直观的方式）
Perl 6内置了chop函数，专门用来移除字符串的最后一个字符，不管这个字符是什么（换行符、普通字符都可以）。如果字符串是空的，它也会返回空字符串，不会抛出错误。示例代码：
```
my $original = "Hello Perl6!";
my $trimmed = $original.chop;
say $trimmed; # 输出 "Hello Perl6"
```
注意别和chomp搞混哦——chomp只会移除字符串末尾的换行符（比如\n、\r\n这类），而chop是无条件移除最后一个字符。
使用substr子字符串方法
如果你需要更灵活的字符串截取，substr是个好选择。Perl 6里可以用*-1来代表字符串长度减一，这样就能轻松取到除最后一个字符外的所有内容：
```
my $original = "StackOverflow";
my $trimmed = $original.substr(0, *-1);
say $trimmed; # 输出 "StackOverflo"
```
这里substr的第一个参数是起始位置（0代表从开头开始），第二个参数是截取的长度，*-1自动计算为字符串总长度减一。
使用正则表达式替换
如果你需要结合其他匹配逻辑来移除最后一个字符，正则表达式会很有用。用s/.$//可以匹配并替换掉字符串末尾的任意单个字符：
```
my $original = "TestExample";
my $trimmed = $original ~ s/.$//;
say $trimmed; # 输出 "TestExampl"
```
解释一下正则：.匹配任意单个字符，$锚定到字符串末尾，整个表达式就是把末尾的一个字符替换为空字符串。