tcp-chain.tcl

来自「在linux平台下」· TCL 代码 · 共 5 行

set i 0
while { $i < $opt(ntcp) } {
    create_tcp_connection 0 $opt(hops) tcp 2.0
    incr i
}