回复 1# 45177659
1. without capture
$ perl -le '@fields = split /A|B|C/, "1A2B3C4"; print join ",", @fields'
1,2,3,4
2. capture together
$ perl -le '@fields = split /(A|B|C)/, "1A2B3C4"; print join ",", @fields'
1,A,2,B,3,C,4
usually, we don't use follow ways:
$ perl -le '@fields = split /(A)|B|C/, "1A2B3C4"; print join ",", @fields'
1,A,2,,3,,4
$ perl -le '@fields = split /A|(B)|C/, "1A2B3C4"; print join ",", @fields'
1,,2,B,3,,4
$ perl -le '@fields = split /A|B|(C)/, "1A2B3C4"; print join ",", @fields'
1,,2,,3,C,4
$ perl -le '@fields = split /(A)|(B)|C/, "1A2B3C4"; print join ",", @fields'
1,A,,2,,B,3,,,4
$ perl -le '@fields = split /(A)|(B)|(C)/, "1A2B3C4"; print join ",", @fields'
1,A,,,2,,B,,3,,,C,4 |