[求助] 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.    }

復(fù)制代碼

我不懂
1. $verify 明明是hash，為什么不是寫成：my %verify？
2. keys %$verify是什么意思？ 我只見過：
   @keys = keys %ENV;

謝謝。
我并不是常用perl，所以經(jīng)常整暈，請?jiān)�諒~~

豬鼻插蔥

{:3_188:} 引用

Perl_Er

回復(fù) 1# brant_chen


    reference/dereference

liyangole

perl 語言的精髓 引用

豬鼻插蔥

http://www.chinaunix.net/jh/25/504623.html
LZ你去看看這個 或許對你有幫助

brant_chen

哦也！
明白了！
謝謝樓上各位，特別是 豬鼻插蔥  ：）

珞水的大叔

回復(fù) 1# brant_chen


    1. $verify 明明是hash，為什么不是寫成：my %verify？
   答：$verify不是hash，它是一個指向hash的引用（或者稱呼它為指針，這樣可能會讓你更明白一些，嘿嘿），因?yàn)樗�用{}來定義。而hash是用()來定義的。
       %$verify才是一個hash。
   
   2. keys %$verify是什么意思？ 我只見過：
      @keys = keys %ENV;
     答：keys %$verify是一個數(shù)組，

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

復(fù)制代碼

等于

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

復(fù)制代碼

豬鼻插蔥

{:3_195:} 大叔 能告之你的聯(lián)系方式嗎？MAIL SMN什么的都行

brant_chen

咦？剛剛都看見大叔的QQ噠？咋那留言不在了？

豬鼻插蔥

{:3_185:} 大叔 你聯(lián)系方式呢  怎么不見了 我沒記下啊