可以用散列的each函数实现赋值吗，

limohua

UID: 29105
帖子: 74
积分: 170
在线时间: 7 小时

1^# limohua 发表于 2007-11-05 14:21

可以用散列的each函数实现赋值吗，

现在要实现，生成一 hash, key 从 1 到 100, 对应的值分别是 100 到 1,也就是 $hash{100} = 1, $hash{99} = 2, ...
然后按 key 的大小从小到大输出，想问问大家我们用each读散列就见得多了，能用each实现对散列的赋值吗，例如，

@key=(1..100);
@values=reverse (1..100);
each %hash=(@key,@values);

while( (@k,@v)=each %hash){

print "@k=>@v\n";

}

当然我们也可以这样做，

for (1..100 {
$hash{$_} = 100 - $_;
}

for (sort {$a <=> $b} keys %hash) {
print qq/\$hash{$_} = $hash{$_}\n/
}

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

2^# FinalBSD 发表于 2007-11-05 14:29

@key = (1..100);
for(@key){
$hash{$_} = $#key-$_+2;
print "$hash{$_}\n";
}

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

3^# 放驴娃发表于 2007-11-05 14:43

没明白你想干啥。
你把你的目的说出来就行了，哪有指名道姓非要 each 做的？

royalzhang

UID: 25162
帖子: 1
积分: 2
在线时间: 10 分钟

4^# royalzhang 发表于 2007-11-05 14:48

楼主的100应该是101，一楼的是对的。
一行搞定的事情，还需要什么each。

QUOTE:

@keys = (1 .. 100);
@values = reverse @keys;
$hash{$keys[$_]} = $values[$_] for(0 .. $#keys);
print $_,"==>",$hash{$_},"\n" for (sort {$a<=>$b} keys %hash);

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

5^# Lonki 发表于 2007-11-05 16:44

my @num_array = (1..100);
my %num_hash = map {$_, @num_array - $_ + 1} @num_array;