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'