问题都不会描述，请高手指教？

djq1976

my $d={
a=>;{1=>;8,2=>;4,3=>;2,4=>;1},
b=>;{1=>;10,2=>;9,3=>;7,4=>;3},
c=>;{1=>;["ab","ba"],2=>;["a","a"],3=>;["add","dda"]},
};
如何对以上类型进行存取，参考了cgi::session，也看了session的记录，可惜看不懂，我想把它存到数据库中，供使用，data::dump我也看不懂，好像是存数据用的，可取出来怎样用呀？print $d->;{a}->;{1}吗？好像不对吧。

flw

print $$d{a}{1} 就可以得到 8
print $$d{a}{2} 就可以得到 4
print $$d{b}{3} 就可以得到 7
print $$d{c}{1}[0] 就可以得到 "ab";
print $$d{c}{3}[1] 就可以得到 "dda";

flw

详解：
第一步：

1. my $d={
   
2. a=>;……
   
3. b=>;……
   
4. c=>;……
   
5. };

复制代码

说明 $d 是一个指向匿名散列表的引用，
用 $$d{a} $$d{b} $$d{c} 这样子就可以解引用。

第二步：

1. a=>;{1=>;8,2=>;4,3=>;2,4=>;1}

复制代码

说明键 a 的值是一个匿名散列表的引用值。

1. b=>;{1=>;10,2=>;9,3=>;7,4=>;3}

复制代码

说明键 b 的值也是一个匿名散列表的引用值。

1. c=>;{1=>;……,2=>;……,3=>;……}

复制代码

说明键 c 的值也是一个匿名散列表的引用值。

第三步：

1. c=>;{1=>;["ab","ba"],2=>;["a","a"],3=>;["add","dda"]}

复制代码

说明键 c 的值是一个匿名散列表的引用值，
而且这个匿名散列表有三个 key-value pair（键-值对）：

1. 1=>;["ab","ba"]
   
2. 2=>;["a","a"]
   
3. 3=>;["add","dda"]

复制代码

并且这三个键的值都是匿名数组的引用值。

结束语：
说得不清楚，自己理解一下吧。
实际上这些东西用 Perl 语言本身解释就很明了，
如果用自然语言如汉语或者英语解释，就像是绕口令一样，越解释越乱套。

apile

print $d->;{a}->;{1};
是正確的..也可這樣用.....
->;跟C裡面的pointer的deref一樣...
所以
$d->;{a}->;{1} 等同
$$d{a}{1}
如果中間有array..就變成
$d->;[a]->;{1}....
這個advance perl programming書中有提到...

reason001

up!

yzcdf

up!!

gunguymadman

一步步来就是了    中间的加{}隔开    从最大的级别往里套   大而下之的以变量代替  然后在用hash或array代替变量