作者seagal (待救的小米)
看板perl
标题Re: [问题] 请问perl有nested hash吗?
时间Mon Dec 13 20:39:27 2004
※ 引述《seagal (待救的小米)》之铭言：
顺便把我寄给你的code
也一起贴过来吧 希望对於日後学习reference的新手有帮助
use Data::Dumper;
$hr->{ip1}->{url1} = 3;
$hr->{ip2}->{url2} = 4;
$hr->{ip2}->{url3} = 9;
$hr->{ip2}->{url4} = 8;
#print Dumper($hr);
foreach $ip (keys %{$hr}){
$r = $hr->{$ip};
foreach $url (sort {$r->{$a} <=> $r->{$b}} keys %{$r}){
print $ip, "\t", $url, "\t", $r->{$url}, "\n";
}
}
--
生物资讯研究室：每天都会更新文件，提供生物资讯教学，生物字典。
http://www.bioinformatic.idv.tw
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.109.73.177
1F：推 jasonzn:已经解决了,谢谢s大 ^^ 140.116.82.172 12/16