如何在TCL中使用“eval”程序？

Question

eval在以下代码中的含义？

proc poissontraffic { src dst interval starttime } { 
    global ns_ node_ 
    set udp($src) [new Agent/UDP] 
    eval $ns_ attach-agent \$node_($src) \$udp($src) 
    set null($dst) [new Agent/Null] 
    eval $ns_ attach-agent \$node_($dst) \$null($dst) 
    set expl($src) [new Application/Traffic/Exponential] 
    eval \$expl($src) set packetSize_ 70 
    eval \$expl($src) set burst_time_ 0 
            # idle_time + pkt_tx_time = interval 
    eval \$expl($src) set idle_time_ [expr $interval*1000.0-70.0*8/250]ms 
    eval \$expl($src) set rate_ 250k 
    eval \$expl($src) attach-agent \$udp($src) 
    eval $ns_ connect \$udp($src) \$null($dst) 
    $ns_ at $starttime "$expl($src) start" 
} 

Answer 1

eval的命令会将其参数和EVAL uates生成的字符串作为一个Tcl脚本。连接是通过从每个参数的任一端剥离空格，然后将它们连接在一起并在其间放置一个空格来完成的。

在给定的代码，例如，

eval $ns_ connect \$udp($src) \$null($dst) 

有效地完成两个回合换人，一度填补$ns_，$src和$dst，并再次从$udp(...)，$null(...)读取和运行命令。

你或许可以用此替代它：

$ns_ connect $udp($src) $null($dst) 

这只会是一个问题，如果$ns_是一个多字值。由于这基本上是OTcl，其中对象名称通常表现良好，因此可能不会，并且所有将会增加的都是混淆，缓慢和不安全。