Perl 变量：哈希变量

#!/usr/bin/perl

%data = (‘aa‘=>‘aa.com‘,‘bb‘=>‘bb.com‘,‘cc‘=>‘cc.com‘);
print "$data{‘aa‘} = $data{‘aa‘}n"; 　　#aa.com
print "$data{‘bb‘} = $data{‘bb‘}n"; 　　#bb.com
print "$data{‘cc‘} = $data{‘cc‘}n"; 　　#cc.com

#!/uer/bin/perl
 
%data = (-aa => 45,-bb => 30,-cc => 40);
@array = @data{-aa,-bb};
print "Array : @arrayn";     #Array : 45 30

#!/usr/bin/perl  

%data = (‘aa‘=>‘aa.com‘,‘cc‘=>‘cc.com‘);
@names = keys %data;
 
print "$names[0]n";     #aa
print "$names[1]n";     #bb
print "$names[2]n";     #cc

#!/usr/bin/perl  

%data = (‘aa‘=>‘aa.com‘,‘cc‘=>‘cc.com‘);
@names = keys %data;
 
print "$names[0]n";     #aa.com
print "$names[1]n";     #bb.com
print "$names[2]n";     #cc.com

#!/usr/bin/perl
 
%data = (‘aa‘=>‘aa.com‘,‘cc‘=>‘cc.com‘);
 
@keys = keys %data;
$size = @keys;
print "1 - 哈希大小: $sizen";   #3
 
@values = values %data;
$size = @values;
print "2 - 哈希大小: $sizen";   #3

#!/usr/bin/perl
 
%data = (‘aa‘=>‘aa.com‘,‘cc‘=>‘cc.com‘);
@keys = keys %data;
$size = @keys;
print "1 - 哈希大小: $sizen";   #1 - 哈希大小: 3
 
# 添加元素
$data{‘dd‘} = ‘dd.com‘;
@keys = keys %data;
$size = @keys;
print "2 - 哈希大小: $sizen";   #2 - 哈希大小: 4

#!/usr/bin/perl
 
%data = (‘aa‘=>‘aa.com‘,‘cc‘=>‘cc.com‘);
@keys = keys %data;
$size = @keys;
print "1 - 哈希大小: $sizen";   #1 - 哈希大小: 3

# 删除哈希中的元素
delete $data{‘bb‘};
@keys = keys %data;
$size = @keys;
print "3 - 哈希大小: $sizen";   3 - 哈希大小: 2