tcp-chain.tcl

在linux平台下

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