如何修复此 wiki 链接解析正则表达式？

Question

我有一个旧的 wiki，我正在将其转换为使用 Markdown 和 [[]] wiki 链接格式的新 wiki。不幸的是，旧的维基确实很旧，并且有很多生成链接的方式，包括。 CamelCase、单括号 ([]) wiki 链接等。

我正在 sed 中转换正则表达式，并使用以下正则表达式将独立的 CamelCase 链接转换为双括号 ([[]]) wiki 链接：

s/([^[|])([A-Z][a-z]+[A-Z][A-Za-z]+)([^]|])/\1\[\[\2\]\]\3/g

不幸的是，上述的一个问题（在我尝试不转换现有单括号维基链接中的驼峰命名法，因为两者混合的情况下）是像 [BluetoothConnection|UsingBluetoothIndex] 这样的东西会被转换到[BluetoothConnection|使用[[BluetoothInde]]x]。

我怎样才能解决这个问题并迫使比赛变得更加贪婪，从而失败并且在这种情况下不进行替换？如果 sed 的增强正则表达式过于有限，我愿意通过 perl 而不是 sed。

Answer 1

好吧，你可以试试这个：

$ echo "UsingBluetoothIndex" | sed -E 's!([^\[\|]?)([A-Z][a-z]+[A-Z][A-Za-z]+)($|\b|[]|])!\1\[\[\2\]\]\3!g'
Output: [[UsingBluetoothIndex]]

$ echo "[BluetoothConnection|UsingBluetoothIndex]" | sed -E 's!([^\[\|]?)([A-Z][a-z]+[A-Z][A-Za-z]+)($|\b|[]|])!\1\[\[\2\]\]\3!g'
Output: [[[BluetoothConnection]]|[[UsingBluetoothIndex]]]

更新：

好吧，我相信现在我已经使用 perl 的否定查找指令。所以这里是：

perl -pe 's#(^|\b)((?![|\[])[A-Z][a-z]+[A-Z][A-Za-z]+(?![|\]]))($|\b)#\[\[\2\]\]#g'

echo "BluetoothConnection" | perl -pe 's#(^|\b)((?![|\[])[A-Z][a-z]+[A-Z][A-Za-z]+(?![|\]]))($|\b)#\[\[\2\]\]#g'
Output: [[BluetoothConnection]]

echo "[BluetoothConnection|UsingBluetoothIndex]" | perl -pe 's#(^|\b)((?![|\[])[A-Z][a-z]+[A-Z][A-Za-z]+(?![|\]]))($|\b)#\[\[\2\]\]#g'
Output: [BluetoothConnection|UsingBluetoothIndex]

它所做的就是检查文本是否不是以“|”开头或 '[' 并且不以 | 或 ] 结尾，然后将其括在 [[ 和 ]] 中。