perl学习之哈希
2012-04-08 14:17
232 查看
#!/usr/bin/perl use warnings; #use strict强制所有变量必须用my来声明, #当试图使用不是用my声明的裸单词(变量或函数名)时,编译无法通过 use strict; #创建简单的hash表 my %student = ( "name" => "HuiDong", "id" => 1021400001, "age" => 25, ); #对hash表进行操作 #返回hash表中的所有keys print my @key = keys%student; #返回hash表中的所有values print my @values = values%student; #迭代hash的每一个元素 while ((my $key, my $value) = each %student) { print "$key=>$value\n"; } #查看hash表中是否存在某个key if (exists$student{'name'}) { print "exist\n"; } #根据变量自动创建hash my $string = "name HuiDong"; my ($name_t, $name) = split(/\s/, $string); my %dich = (); $dich{$name_t} = $name; while ((my $key, my $value) = each%dich) { print "$key=>$value\n"; } #创建多层hash表并实现访问 my %students; %students = ( "student1" => {"name" => "name1", "id" => 10214, "mark" => 100, }, "student2" => {"name" => "name2", "id" => 10215, "mark" => 50, }, ); #访问方式一 print $students{"student1"}{"name"}."\n"; #访问方式二 my $studentreport = $students{"student2"}; print ${$studentreport}{"name"}."\n"; #hash表中内嵌数组 my %game = ( "武器店" => [123,35], "魔法店" => [85, 196], ); print $game{"武器店"}->[0]."\t"; print $game{"武器店"}->[1]."\n"; #清空和删除hash表 undef %student;#清空整个hash表 foreach my $key(keys %student) { delete $student{$key}; #删除hash }
相关文章推荐
- Perl 学习笔记-哈希
- 学习Perl中的哈希时遇到的小问题
- perl学习之哈希
- Perl语言学习笔记 6 哈希
- perl 哈希(hash)学习笔记(一)
- Perl学习之哈希hash
- perl 哈希(hash) 学习笔记
- Perl学习笔记之数组与哈希
- perl学习笔记六----函数
- 【perl】学习笔记(六)--方法的使用
- Java中哈希学习
- perl学习之printf
- perl学习之精髓中的精髓
- 关于学习Perl
- perl学习心得(摘记)
- perl学习——输入和输出
- perl学习笔记-----------------------(4)
- Perl 学习笔记(4)
- 推荐Perl编程最好的学习参考系列用书
- Perl学习笔记 No.11