拆分后存储令牌

Question

我有以下 Perl 语句，它通过分隔符 |、\ 或 / 分割字符串

@example = split(/[\|\\\/]/,$i);

拆分后的token如何存储？

例如输入：

约翰|玛丽/马修

我得到的是：

（约翰、玛丽、马修）

我想要什么：

（约翰，|，玛丽，/，马修）

Answer 1

在您的正则表达式中放置一个捕获组以保存分隔符：

my $str = 'John|Mary/Matthew';

my @example = split /([\|\\\/])/, $str;

use Data::Dump;
dd @example;

输出：

("John", "|", "Mary", "/", "Matthew")

这记录在最后一段中：http://perldoc.perl.org/functions/split.html