$subref=sub {
my $a=shift;
return $a;
};
print $subref->("xxyyzz");
转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199983.html
$subref=sub {
my $a=shift;
return $a;
};
print $subref->("xxyyzz");
转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199983.html