разделение на Perl и регулярные выражения case-in-sensitve

Question

У меня есть строка, в которой разделитель является словом и нечувствителен к регистру, что-то типа этого:

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

есть ли возможность разделить список для разделения данных в случае чувствительности?

Answer 1

Первый аргумент в split для разделителя является обычным регулярным выражением, поэтому

my $sep = 'sep';

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

будет разбивать строку на sep без учета регистра (для любого из * 1007)*, sEP и т. Д.).

---

Простая попытка:

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