perl语言中的定义枚举
发布时间:2020-12-15 23:38:59 所属栏目:大数据 来源:网络整理
导读:perl语言中定义枚举变量和C语言中类似,默认都是从0开始,并依次递增1个单位; 也可以重新自定义枚举变量的起始值,示例如下: 定义枚举变量: use enum qw(Sun Mon Tue Wed Thu Fri Sat) ; # Sun == 0,Mon == 1,etc use enum qw(Forty=40 FortyOne Five=5 S
perl语言中定义枚举变量和C语言中类似,默认都是从0开始,并依次递增1个单位; 定义枚举变量: use enum qw(Sun Mon Tue Wed Thu Fri Sat);
# Sun == 0,Mon == 1,etc
use enum qw(Forty=40 FortyOne Five=5 Six Seven);
# Yes,you can change the start indexs at any time as in C
use enum qw(:Prefix_ One Two Three);
## Creates Prefix_One,Prefix_Two,Prefix_Three
use enum qw(:Letters_ A..Z);
## Creates Letters_A,Letters_B,Letters_C,...
use enum qw( :Months_=0 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec :Days_=0 Sun Mon Tue Wed Thu Fri Sat );
测试代码: print "enum Wed val: ",Wed,"n" ;
print "enum FortyOne val: ",FortyOne,"n" ;
print "enum Prefix_Two val: ","n" ;
print "enum Letters_A val: ",Letters_A,"n" ;
print "enum Months_Jan val: ",Months_Jan,"n" ;
print "enum Days_Sun val: ",Days_Sun,"n" ;
测试结果: enum Wed val: 3
enum FortyOne val: 41
enum Prefix_Two val: 1
enum Letters_A val: 0
enum Months_Jan val: 0
enum Days_Sun val: 0
更多参考资料: (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- golang 几种字符串的连接方式
- 使用Lua编写Wireshark插件解析KCP UDP包,解析视频RTP包
- leetcode 5078. 负二进制数相加(Adding Two Negabinary Num
- PAT_A1016#Phone Bills
- 格式化 – 在Inno Setup isl文件中格式化文本的选项
- Wince下透明Label的实现(vb.net)
- Delphi – Shift Ctrl 0组合Windows Vista上的应用程序看不
- Delphi 与 DirectX 之 DelphiX(82): TDIB.DrawMandelbrot()
- Delphi编程辨别显示分辨率
- spring – 将不同类型的参数传递给jdbctemplate查询