perl split和正则表达式不敏感

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'