Perl拆分和正则表达式不敏感

Question

我有一个字符串，其中的分隔符是单词，并且不区分大小写，如下所示

Data1 Sep Data2 Sep date 3 SEP Data4 SeP Data 5

我正在写这样的东西：

split /(sep|SEP|Sep|seP)/, $string

是否有一个选项列出拆分以区分数据以区分大小写？

Answer 1

split的第一个参数（对于分隔符）是常规的正则表达式，因此

my $sep = 'sep';

my @fields = split /$sep/i, $string;

将由分割字符串sep不区分大小写（在任何的sep，sEP等）。

轻松尝试：

perl -wE'$str = q(heysephosEpho); say for split /seP/i, $str'