Regex替换记录中的最后n个分隔符

我有一个csv文件，其中记录如下：

^Tablete Internet^|GoClever|^TAB I71^|^Tableta GoClever TAB I71, InfoTMIC iMAPx220 1GHz MKV, MOV, VOB, DAT, WMV, AVI, 3GP, MP4, RM, RMVB, FLV, MKV, MOV, VOB, DAT, WMV, MP3!WAV!OGG!FLAC!APE!AAC, Conectori: 1x mini jack 3.5 mm, 2 porturi USB 2.0, 4000 mAh lithium-ion polymer 3.7V^!92.00!USD!w!24!0!Link!!^5 ron^!!|
Group|Prod|Den|Description!12!EUR!^wait time^!160!Modified!Link!^Spec Obs^!^tv none^!more!info|

我需要将行末尾的“！”的最后10个替换为“|”，这样最终看起来会像：

^Tablete Internet^|GoClever|^TAB I71^|^Tableta GoClever TAB I71, InfoTMIC iMAPx220 1GHz MKV, MOV, VOB, DAT, WMV, AVI, 3GP, MP4, RM, RMVB, FLV, MKV, MOV, VOB, DAT, WMV, MP3!WAV!OGG!FLAC!APE!AAC, Conectori: 1x mini jack 3.5 mm, 2 porturi USB 2.0, 4000 mAh lithium-ion polymer 3.7V^|92.00|USD|w|24|0|Link||^5 ron^|||
Group|Prod|Den|Description|12|EUR|^wait time^|160|Modified|Link|^Spec Obs^|^tv none^|other|info|

我试过：

sed 's/!\([^\^!]*\)!\([^!]*\)$/|\1|\2/'

但这只替换了最后两次出现的“！”。如果我尝试

sed 's/!\([^\^!]*\)!\([^!]*\)!\([^!]*\)$/|\1|\2\3/'

它与任何东西都不匹配。。。那我该怎么做呢

---

谢谢

给你

我知道这不是最优雅的解决方案，但我成功地用以下方法实现了：

perl -npe 's/^(.*)!(.*)!(.*)!(.*)!(.*)!(.*)!(.*)!(.*)!(.*)!(.*)!(.*)$/$1|$2|$3|$4|$5|$6|$7|$8|$9|$10|$11/'

---

谢谢

你真的需要使用正则表达式吗？编写一个脚本来解析输入文件并生成输出文件可能更容易。。。它正在从excel xls转换为csv，我需要解析错误的csv结果，以便有选择地在mysql数据库中导入一些数据。我需要用bash工具和一些perl来完成所有这些。