如何使用正则表达式将单词中间的字符大写

Question

例如，johnathan到johNAThan

Answer 1

我不知道如何在正则表达式中执行此操作，但您可以在perl中执行此类操作。

cat a|perl -lane ' if( length($_) == 7) { s/(..)(..)(.*)/\1\U\2\E\3/; print}   if( length($_) > 7) { s/(..)(...)(.*)/\1\U\2\E\3/; print} '