perl 怎么增加hash键值对

2024-11-06 18:19:34
推荐回答(2个)
回答1:

呃,没大明白,增加键值对,意思是这样么:
my %hash = (1,2,3,4); #初始化
my $key = 'a';
my $value = 'b';
$hash{$key} = $value; #说的是这个?

对哈希的values进行排序, my @sort_values = sort(values %hash);

回答2:

就这样加上去就好...

%h = ( A=>'a', B=>'b' ) ;
foreach ( 'C' .. 'Z' ) {
$h{$_} = lc $_; # Key = Value
}
print "$h = $h{$_}" foreach sort keys %h;

@order = sort values %h; # 如果你的 values 是文字
@order = sort {$a<=>$b} values %h; # 如果你的 values 是数字

@rev_order = reverse sort values %h ; # 文字 + 反序
@rev_order = sort {$b<=>$a} values %h ; # 数字 + 反序