Perl分割和正则表达式不区分大小写

Question

我有一个字符串，其中分隔符是单词且不区分大小写，类似于：

Data1 sep Data2 Sep date 3 SEP Data4 SeP Data 5

我正在编写如下内容：

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

有没有选项可以列出分割数据以便敏感处理？

- jsor

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'

- zdim