※ 引述《pico2k (風月)》之銘言：
: ※ 引述《tony0924 (北京烤鴨)》之銘言：
: : 已經有網友提到可以改用 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 = @_ 這行程式有問題
如果用多重引數 my ($hash_ref1,$hash_ref2) = @_; 就沒問題
用單一引數就用 $_ 吧!
: 以下是我的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: 61.66.19.129