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

Question

1. 首位可以是字母以及下划线。

2. 首位之后可以是字母，数字以及下划线。

3. 下划线后不能接下划线（这个不知道怎么处理）。

Answer 1

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