perl语言中定义枚举变量和C语言中类似,默认都是从0...