[求助] Perl语法问题

brant_chen

Perl语法真的让我焦头烂额啊

有如下的code：

1. sub _uniq {
   
2.    my (@keys) = @_;
   
3.    my %seen;
   
4. 
   
5.    for my $key (@keys) {
   
6.       $seen{$key}++;
   
7.    }
   
8. 
   
9.    return keys %seen;
   
10. }
    
11. 
    
12. my $verify = {
    
13.       id    => 'SCALAR',
    
14.       text  => 'SCALAR',
    
15.       dependents    => 'ARRAY',
    
16.    };
    
17.    my $require = {
    
18.       id    => 'required',
    
19.       text  => 'required',
    
20.       dependents    => 'optional',
    
21.    };
    
22.    my $fail = 0;
    
23. 
    
24.    for my $key (_uniq(keys %$verify, keys %$struct)) {
    
25. ....
    
26.    }

复制代码

我不懂
1. $verify 明明是hash，为什么不是写成：my %verify？
2. keys %$verify是什么意思？ 我只见过：
   @keys = keys %ENV;

谢谢。
我并不是常用perl，所以经常整晕，请原谅~~

猪鼻插葱

{:3_188:} 引用

Perl_Er

回复 1# brant_chen


    reference/dereference

liyangole

perl 语言的精髓 引用

猪鼻插葱

http://www.chinaunix.net/jh/25/504623.html
LZ你去看看这个 或许对你有帮助

brant_chen

哦也！
明白了！
谢谢楼上各位，特别是 猪鼻插葱  ：）

珞水的大叔

回复 1# brant_chen


    1. $verify 明明是hash，为什么不是写成：my %verify？
   答：$verify不是hash，它是一个指向hash的引用（或者称呼它为指针，这样可能会让你更明白一些，嘿嘿），因为它用{}来定义。而hash是用()来定义的。
       %$verify才是一个hash。
   
   2. keys %$verify是什么意思？ 我只见过：
      @keys = keys %ENV;
     答：keys %$verify是一个数组，

1. _uniq(keys %$verify, keys %$struct)

复制代码

等于

1. @keys1 = keys %$verify;
   
2. @keys2 = keys %$struct;
   
3. _uniq(@keys1,@keys2);

复制代码

猪鼻插葱

{:3_195:} 大叔 能告之你的联系方式吗？MAIL SMN什么的都行

brant_chen

咦？刚刚都看见大叔的QQ哒？咋那留言不在了？

猪鼻插葱

{:3_185:} 大叔 你联系方式呢  怎么不见了 我没记下啊