perl 数组问题，请教了！

jidiyihao

my %hash;

$hash{"test$_"} = 0 for 1 .. 1000;

# 处理

for my $name (sort keys %hash) {
    m ...
zhlong8 发表于 2011-04-21 23:07

    可改成内插吧
print "$name = $hash{$name}\n";

zhlong8

可改成内插吧
print "$name = $hash{$name}\n";
jidiyihao 发表于 2011-04-28 21:51

    一样的

jidiyihao

回复 12# zhlong8
但是为什么sort 后代结果会是这样：
hash1 = 0
hash10 = 0
hash100 = 0
hash11 = 0
hash12 = 0
hash13 = 0
hash14 = 0
hash15 = 0
hash16 = 0
hash17 = 0
hash18 = 0
hash19 = 0
hash2 = 0
hash20 = 0
hash21 = 0
hash22 = 0
hash23 = 0
hash24 = 0
hash25 = 0
hash26 = 0
hash27 = 0
hash28 = 0
hash29 = 0
hash3 = 0
hash30 = 0
hash31 = 0
hash32 = 0
hash33 = 0
hash34 = 0
hash35 = 0
hash36 = 0
hash37 = 0
hash38 = 0
hash39 = 0
hash4 = 0
hash40 = 0
hash41 = 0
hash42 = 0
hash43 = 0
hash44 = 0
hash45 = 0
hash46 = 0
hash47 = 0
hash48 = 0
hash49 = 0
hash5 = 0
hash50 = 0
hash51 = 0
hash52 = 0
hash53 = 0
hash54 = 0
hash55 = 0
hash56 = 0
hash57 = 0
hash58 = 0
hash59 = 0
hash6 = 0
hash60 = 0
hash61 = 0
hash62 = 0
hash63 = 0
hash64 = 0
hash65 = 0
hash66 = 0
hash67 = 0
hash68 = 0
hash69 = 0
hash7 = 0
hash70 = 0
hash71 = 0
hash72 = 0
hash73 = 0
hash74 = 0
hash75 = 0
hash76 = 0
hash77 = 0
hash78 = 0
hash79 = 0
hash8 = 0
hash80 = 0
hash81 = 0
hash82 = 0
hash83 = 0
hash84 = 0
hash85 = 0
hash86 = 0
hash87 = 0
hash88 = 0
hash89 = 0
hash9 = 0
hash90 = 0
hash91 = 0
hash92 = 0
hash93 = 0
hash94 = 0
hash95 = 0
hash96 = 0
hash97 = 0
hash98 = 0
hash99 = 0

2gua

该路过就路过，就不回答。

zhlong8

回复 13# jidiyihao


    sort 默认是字符序。还是 for (1..1000){ my $name = "test$_"; 方便

jidiyihao

回复 15# zhlong8


    谢谢，