perl 回调函数

在计算机程序设计中，回调函数，或简称回调（Callback），是指通过函数参数传递到其它代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。
就是向函数的参数为   一个函数的引用
 my $a=$ARGV[0];
my $b=$ARGV[1];
sub  callback1 {
   return  "aaaaaa";
}


sub  callback2 {
   return "bbbbbb";
}


sub run {
   my $func_ref = shift;
}
if ($a>$b) {
    my $c= run(&callback1);
    print &$c;
}
else {
    my $c= run(&callback2);
    print &$c;
}




my $d=run(sub{return "ddddddddd"});
print &$d;
print "
";