区切り文字プレフィックス付きのPerl分割正規表現

Question

特殊文字がない場合は、区切り文字の前に区切りたいと思います。

my $str = "a,b,c,d,e"; 
my @lst = split (/,/, $str); 

# gives me: ("a", "b", "c", "d", "e") 

# now I want to split after any , with not a character c in front of the ,. 
# ("a", "b", "c,d", "e") 

私は

split (/(?!c),/, $str) 

を試みたが、予想通り、それは働いていませんでした。

Answer 1

逆順にチェックする場合はnegative look behind assertionを使用してください。

split (/(?<!c),/, $str)