eval 动态语句

shigw001

大家好，遇到一个问题。
我有一个字符串中含有变量（类似$hash->{'key'}）.想利用eval 替换成实时数据。
如：
my $aa = "DEFINE \$tHash{'a'}";

my %tHash = (
        'a' => 'test',
        'b' => 'all',
);

eval($c = $aa);
print $c ;

可是没能实现。
请教下 大家类似功能如何实现呢。

看到另一帖子：怎么没想到替换呢。
my $aa = ‘DEFINE <$tHash{a}>’;

my %tHash = (
        'a' => 'test',
        'b' => 'all',
);

$aa =~ s/<(.*)>/eval "$1"/ge;
print $aa ;


可以了。

兰花仙子

第二个eval之所以成功，是因为你只对特定的部分进行eval了。
可以通过$@来判断eval的执行状态（成功或失败）。

eval一个string不是太好的做法。
如果原始需求里的确要这么做，可考虑使用模板系统。

shigw001

第二个eval之所以成功，是因为你只对特定的部分进行eval了。
可以通过$@来判断eval的执行状态（成功或失败 ...
兰花仙子 发表于 2010-03-01 18:31

有什么好的模板可以使用吗。。可以介绍下是哪个模块吗？
就知道个HTML的模板

climby

Template Toolkit 很不错的  http://www.tt2.org/
我一直用

shigw001

Template Toolkit 很不错的  
我一直用
climby 发表于 2010-03-02 13:16

    去看了下，确实很有用。回来研究研究

suxingwakeup

$c=eval{$aa};即可。