regex - 删除 perl 字符串中的后续前缀

Question

我有一个需要重新格式化的文件，其中包含如下字符串：

pin_name[10], pin_name[9], pin_name[8], ..., other_pin_name, some_other_pin_name[1], some_other_pin_name[0]

我想要获得的是这样的字符串：

pin_name[10], [9], [8], ..., other_pin_name, some_other_pin_name[1], [0]

所以，我想删除所有后续的重复前缀，只留下不同的后缀。任何想法？

谢谢！

Answer 1

perl -pe 's/\b((\w+)\[\d+\])((?:,\s*\2\[\d+\])+)/$a=$1;$b=$3;$b=~s,$2,,g;$a.$b/eg'