Re: [問題] perl當中的sub副常式可以傳hash為引數嗎?

[pico2k (風月)]

※ 引述《tony0924 (北京烤鴨)》之銘言：
: ※ 引述《ppkliu (ppkliu)》之銘言：
: : 如題
: : perl當中的sub副常式可以傳hash為引數嗎?
: : 若不行，要怎麼解決比較好。
:   已經有網友提到可以改用 reference 了，以下是範例 :
:   $my_hash = { key1 => value1, key2 => value2 };
:   my_sub( $my_hash );
:   sub my_sub
:   {
:     my $hash_ref = @_;
:     foreach $key ( %$hash_ref )
:     {
:        blah blah...
:     }
:   }

  my $hash_ref = @_ 這行程式有問題

  以下是我的sample code:

  $my_hash = { key1 => "value1",
               key2 => "value2" };

  my_sub($my_hash);

  sub my_sub
  {
    my $hash_ref = $_[0];

    foreach $key ( keys %$hash_ref )
    {
       print "keys:",$key," value:",%$hash_ref->{$key},"\n";
    }
  }



--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.132.132.12