preg_replace轮换PHP代码

preg_replace替换PHP代码
有一段PHP代码，我想让<a>至</a>之间的字符全部变为大写

PHP code

a = '<a><?php$str = \'0\';if($str==\'0\'){echo $str;}?></a>';echo preg_replace("/<a>(.*?)<\/a>/es",'"<a>".strtoupper("\\1")."</a>"',$a);

PHP code

$a = '<a><?php$str = \'0\';if($str==\'0\'){echo $str;}?></a>';echo preg_replace_callback("/<a>(.*?)<\/a>/s", 'foo', $a);function foo($r) {  return "<a>".strtoupper($r[1])."</a>";}