请教个函数传递参数的问题

SAS

UID: 3249
帖子: 67
积分: 154
在线时间: 6 小时

1^# SAS 发表于 2008-07-28 17:43

请教个函数传递参数的问题

请教个函数传递参数的问题

我想如下方式传递参数到函数中，但发现，不能正确传递，哈希的值传递不进去。
my ($filen2)="t.cfg";
my (%sys_config);
my ($fg)="=";
%sys_config=('user'=>'','passwd'=>'','dbname'=>'');
test($filen2,$fg,%sys_config);

sub test
{
print %_;
print $_[0];
print $_[1];
print %_[2];
}

请问我要怎么弄才能正确传递哈希参数的值到函数中？或者传递的时候$filen2,$fg不会随机改变位置。

谢谢

SAS

UID: 3249
帖子: 67
积分: 154
在线时间: 6 小时

2^# SAS 发表于 2008-07-28 22:46

UP

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

3^# hitsubunnu 发表于 2008-07-29 08:07

用引用传参

[Copy to clipboard] [ - ]

CODE:

my ($filen2)="t.cfg";
my (%sys_config);
my ($fg)="=";
%sys_config=('user'=>'','passwd'=>'','dbname'=>'');
test($filen2,$fg,\%sys_config);

sub test
{
      print %_;
      print $_[0];
      print $_[1];
      $refh = $_[2];
      while(my ($key,$value)=each %$refh ){
        print "$key -- $value\n";
      }
}

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

4^# hdc1112 发表于 2008-07-29 08:13

%_[2] 是什么。。。这里错了吧

SAS

UID: 3249
帖子: 67
积分: 154
在线时间: 6 小时

5^# SAS 发表于 2008-07-29 10:33

多谢hitsubunnu

我才开始学perl，%_[2]是乱蒙的，见笑了。