Perl正则表达式逐字分割字符串

Question

我有一个由几个单词组成的字符串（用大写字母分隔）。

例如：

$string1="TestWater"; # to be splited in an array @string1=("Test","Water")
$string2="TodayIsNiceDay"; # as @string2=("Today","Is","Nice","Day")
$string3="EODIsAlwaysGood"; # as @string3=("EOD","Is","Always","Good")

我知道 Perl 很容易拆分使用拆分功能来固定字符，或者匹配正则表达式可以将 $1、$2 与固定数量的变量分开。但是如何动态地做到这一点呢？提前致谢！

Spliting CamelCase 的帖子没有回答我的问题，我的问题与 Perl 中的正则表达式更相关，即 Java 中的正则表达式（此处存在差异）。

Answer 1

您可以通过在列表上下文中使用m//g 来执行此操作，它会返回找到的所有匹配项的列表。 （经验法则：如果您知道要提取什么，请使用m//g；如果您知道要丢弃什么，请使用split。）

您的情况有点复杂，因为您想将"EODIs" 拆分为("EOD", "Is")。

以下代码处理这种情况：

my @words = $string =~ /\p{Lu}(?:\p{Lu}+(?!\p{Ll})|\p{Ll}*)/g;

即每个单词都以大写字母 (\p{Lu}) 开头，后跟任一

• 1 个或多个大写字母（但最后一个字母后面没有小写字母），或
• 0 个或多个小写字母 (\p{Ll})

Answer 2

使用split 在正则表达式上拆分字符串。你要的是一个大写字符后面不跟一个大写字符作为边界，可以用两个前瞻断言来表示（详情perlre）：

#!/usr/bin/perl
use warnings;
use strict;

use Test::More;

sub split_on_capital {
    my ($string) = @_;
    return [ split /(?=[[:upper:]](?![[:upper:]]))/, $string ]
}

is_deeply split_on_capital('TestWater'),       [ 'Test', 'Water' ];
is_deeply split_on_capital('TodayIsNiceDay'),  [ 'Today', 'Is', 'Nice', 'Day' ];
is_deeply split_on_capital('EODIsAlwaysGood'), [ 'EOD', 'Is', 'Always', 'Good' ];

done_testing();