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會返回調(diào)用這個import函數(shù)的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 編輯 ]