perl - 拆分后存储 token

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