s/\w<([^>]+)/\U$1/g; perl中的这个表达式具体含义是什么，哪位大神可以解答一下

Question

如题所述

Answer 1

s/\w<([^>]+)/\U$1/g

s///g表示全局匹配到后替换；\w<([^>]+) 中\w 表示匹配大小写英文字母、数字以及下划线，等价于'[A-Za-z0-9_]';< 表示 “<”这个字符；[^>]+表示一个字符串并且其中的每个字符都不是">"这个字符；（）表示正则表达式里面的命令捕获功能，下面的$1就是指这个（）里面的内容；\U表示把其后面的字母换成其对应的大写字母。

码字不易，望采纳