perl array, scalar and hash
2016-03-20 21:46
190 查看
#!/usr/bin/perl use strict; use warnings; my @aa=("aa", "bb", "cc"); print "@aa\n"; my $aa_num=@aa; print "$aa_num\n"; my %hash = ("a"=>1, "b"=>2,"c"=>3); my @k = keys %hash; print "@k\n"; print "OK\n" if keys %hash == $aa_num;
aa bb cc 3 c a b OK
相关文章推荐
- Android画图工具——Canvas
- 集合-Set
- 读书笔记| (三)ARM9 嵌入式学习:ARM实验篇
- hdu1402A * B Problem Plus
- 英文歌曲:Yesterday Once More(昨日重现)
- 【机房个人重构】数据库设计之物理设计
- 汇编学习3
- SNAT
- webView的使用
- 欢迎使用CSDN-markdown编辑器
- Java - 多线程
- print(),print_r(),echo()的区别
- DOM对象编程练习小结
- Android系统组件BroadcastReceiver
- u插件开发,图解每个js之前的通信
- 整数因子分解
- 猎豹MFC--Socket编程基础TCP服务端和客户端
- 基于dos的多任务系统实现
- 读书笔记| (二)ARM9 嵌入式学习:代码 & 原理篇
- UML之用例图