linux&Perl&R  

while (my($k1, $v1) = each %hash) {

    while (my($k2, $value) = each %$v1) {

via http://bbs.chinaunix.net/thread-1810192-1-1.html

2012-09-14 perl二维哈希

评论

©linux&Perl&R Powered by LOFTER