perl使用散列传递参数的问题

hamas

我在程序调用时定义了一个散列

%paralist={'dbtype'=>$dbtype,'dbuser'=>$dbuser,'dbpasswd'=>$dbpasswd,'dbip'=>$dbip,'filetype'=>$filetype,'filedir'=>$filedir,'filetempdir'=>$filetempdir,'distinctionno'=>$ARGV[1]};

我想把%paralist作为函数new（）的参数传入，
请问我如何在自定义函数中new（）中使用这个传入的散列参数，调用时，new函数如何使用%paralist这个散列。

hqyus

传引用：

$rhash = \%paralist;

print $$rhash{"key1"};

maybe.

hamas

原帖由 hqyus 于 2008-3-6 17:46 发表
传引用：

$rhash = \%paralist;

print $$rhash{"key1"};

maybe.

为什么需要使用引用呢？能不能给我详细说一下啊，另外new作为一个构造函数应该怎么使用这个作为参数的散列呢。

churchmice

原帖由 hamas 于 2008-3-6 17:33 发表
我在程序调用时定义了一个散列

%paralist={'dbtype'=>$dbtype,'dbuser'=>$dbuser,'dbpasswd'=>$dbpasswd,'dbip'=>$dbip,'filetype'=>$filetype,'filedir'=>$filedir,'filetempdir'=>$filetempdir,'distincti ...

函数new可以这么写

1. 
   
2. sub new{
   
3.     my %hash = @_;
   
4.     ...
   
5.     ...
   
6. }
   

复制代码

调用的话

1. 
   
2. new(%paralist)
   

复制代码

或者

1. 
   
2. sub new {
   
3.    my $hashref = shift; # $hashref 是一个指向%paralist的引用
   
4.    my %hash = %{shift()}  # 这种方法一步到位,deference
   
5. }
   
6. 
   
7. 调用的话
   
8. new(\%paralist);
   
9. 
   

复制代码

如果不知道引用
还是要好好看中骆驼书