sed|awk文本格式化

lvyuancyx

有如下文本2行，需要格式化
301011011|Service Handling Order Exclusiveness Configuration|4050019|4050009|4050008|4050003|4050011|4056015|Configuration of the exclusiveness of service handling orders.|301|301011||0|
301010413|List of IDs of customization process standard events.|1402|1401|1403|1405|List of IDs of customization process standard events. The event IDs in the list are level-3 event IDs and can be separated by commas ( , ), semicolons ( ; ), and '|'.|305|301010||0|

需要替换两个红色“|”之间的“|”为“；”

期待的结果是：
301011011|Service Handling Order Exclusiveness Configuration|4050019;4050009;4050008;4050003;4050011;4056015;Configuration of the exclusiveness of service handling orders.|301|301011||0|
301010413|List of IDs of customization process standard events.|1402;1401;1403;1405;List of IDs of customization process standard events. The event IDs in the list are level-3 event IDs and can be separated by commas ( , ), semicolons ( ; ), and ';'.|305|301010||0|

请大家帮忙。多谢。

wh7211

回复 1# lvyuancyx

1. cat 1
   
2. 301011011|Service Handling Order Exclusiveness Configuration|4050019|4050009|4050008|4050003|4050011|4056015|Configuration of the exclusiveness of service handling orders.|301|301011||0|
   
3. 301010413|List of IDs of customization process standard events.|1402|1401|1403|1405|List of IDs of customization process standard events. The event IDs in the list are level-3 event IDs and can be separated by commas ( , ), semicolons ( ; ), and '|'.|305|301010||0|
   
4. 
   
5. awk '{match($0,"^(([^|]*\\|){2})(.*)(\\|([^|]*\\|){4})$",a);gsub(/\|/,";",a[3]);print a[1]""a[3]""a[4]}' 1
   
6. 301011011|Service Handling Order Exclusiveness Configuration|4050019;4050009;4050008;4050003;4050011;4056015;Configuration of the exclusiveness of service handling orders.|301|301011||0|
   
7. 301010413|List of IDs of customization process standard events.|1402;1401;1403;1405;List of IDs of customization process standard events. The event IDs in the list are level-3 event IDs and can be separated by commas ( , ), semicolons ( ; ), and ';'.|305|301010||0|

复制代码

legs

[ 本帖最后由 legs 于 2022-01-18 17:09 编辑 ]\n\n没办法编辑了，搞不懂论坛的代码怎么使用的。

perl -pe's#\|(?=.*\|30\d\|)#++$n>2?";":$&#ge;$n=0' file
perl -pe's#(^([^|]+\|){2}|\|30\d\|.*)(*SKIP)(?!)|\|#;#g' file

legs

perl -pe's#(^([^|]+\|){2}|\|30\d\|.*)(*SKIP)(*F)|\|#;#g' file

或者

perl -pe's#\|(?=.*\|30\d\|)#++$n>2?";"&#ge;$n=0' file