拆分后存储令牌

Question

我有以下 Perl 语句，它用分隔符 |、\ 或 /

分割字符串

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

拆分后的token如何存储？

例如输入：

John|Mary/Matthew

我得到的是：

(John, Mary, Matthew)

我想要的：

(John, |, Mary, /, Matthew)

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

Store the tokens after splitting