今天在车上突然有灵感,大概你最需要的是阅读 perlboot 这个 perldoc。
那个 values 部分列出来的 hash reference 就是一个 tied hash reference,也
就是对象。
所以:

Win32::TieRegistry=HASH(0x1a4addc) 这个 value 在 hash 中

#  %{$Registry->Open('\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
\CurrentVersion\Run')}

需要如此展开:

%{$Registry->Open('\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
\CurrentVersion\Run')->{'OptionalComponents\\'}}"

不过这个写法还真是比较接近 SQL 括号套着括号

On 四, 2009-01-08 at 22:40 -0800, shandaw wrote:
> 
> On 1月9日, 下午2时27分, "purl lamp" <[email protected]> wrote:
> > 所以你需要递归 :D
> >
> 
> 
> 不 好意思,我比较菜,能否写个例子啊,谢谢啦!
> 


--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina 论坛”论坛。
 要在此论坛发帖,请发电子邮件到 [email protected]
 要退订此论坛,请发邮件至 [email protected]
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

回复