校验数据库字段名格式的正则表达式

Question

首位可以是字母以及下划线。首位之后可以是字母，数字以及下划线。下划线后不能接下划线（这个不知道怎么处理）。

Answer 1

给一个 Perl 风格的结果，请大家验证一下是否正确：
(^_([a-zA-Z0-9]_?)*$)|(^[a-zA-Z](_?[a-zA-Z0-9])*_?$)