求教 sub里面套sub 问题？

luol_001

%CHECK_CODE_PARAM = （
        RE_INPUT => sub {
                my $key_name = shift;
                sub {
                        my $data = shift;
                        my $obj = shift;
                        my $detail = $obj->detail($key_name);
                        return 0 if $detail->is_err;
                        $data eq $detail->convert;
                };
      .
      .
      .
      .
)

这里的sub里面套sub怎么用？
$key_name, $data, $obj 的值都是从@_里面一个一个被shift出来的吗？

[ 本帖最后由 luol_001 于 2006-2-20 13:03 编辑 ]

flw

不是的，它们都只是 code，只有在执行的时候，才会从 @_ 里取数据。

luol_001

能不能在具体点？好像还不明白！这个具体有什么作用？