caller求解

redicaps

1. 
   
2. package module;
   
3. use vars qw($message);
   
4. $message = "I am here";
   
5. sub import {
   
6.     $package = shift;
   
7.     my $caller = caller(1);
   
8.     *{"$caller\:\:message"} = \$message;
   
9.     *{"$caller\:\:package"} = \$package;
   
10. }
    

复制代码

在这里caller会返回调用这个import函数的main包

但在

1. 
   
2. package hello;
   
3. sub a{
   
4.     my $b = caller(1) ;
   
5.     print "\n",$b;
   
6. }
   
7. &a;
   

复制代码

里面会报错说$b 没有赋值
why？
caller(n)到底是个什么用法
不要说perldoc -f caller偶看了没看懂

[ 本帖最后由 redicaps 于 2007-11-14 22:39 编辑 ]