动态函数

rubyish

回复 2# ba_du_co

学习了！，以前没注意到这种写法。
   

sjdy521

回复 2# ba_du_co

这题只能用eval了,用“gee”就可以了

my($key1,$key2,$key3) = (1,2,3);
my @args = ("key1","key2");
my $template_str = "key1 + key2 + key3";

my $func = sub {
        $template_str=~s/$_/'.' . $_/gee for @_;
        $template_str;
};

print $func->(@args);

sjdy521

回复 3# Monox


   use Exporter就天天干这种事情，但是在my的情况下glob就用不了了

Monox

回复 13# sjdy521


    所以才说是geek 的方法。那些真正的Perl高手总是建议你用my，但是他们自己时常碰到不能使用my的情况。