开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
util.tcl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：2k
源码类别：

通讯编程

开发平台：

Visual C++

util.tcl：源码内容
  1. proc Pre { tfile } { 
  2.     global timezero 
  3.     set f [open "|tcpdump -n -r $tfile src port 80 and tcp" r]
  4.     set line [gets $f]
  5.     catch "close $f"
  6.     set aslist [split $line " "]
  7.     set timezero [tcpdtimetosecs [lindex $aslist 0]]
  8. }
  10. proc max {arg1 arg2}  {
  11.     if { $arg1 > $arg2 } { return $arg1 }
  12.     return $arg2 
  13. }
  15. proc min {arg1 arg2}  {
  16.     if { $arg1 > $arg2 } { return $arg2 }
  17.     return $arg1 
  18. }
  20. proc tcpdtimetosecs tcpdtime  {
  21.     global timezero 
  23.     # convert time to seconds
  24.     set t [split $tcpdtime ":."]
  25.     regsub {^0*([0-9])} [lindex $t 0] {1} hours
  26.     regsub {^0*([0-9])} [lindex $t 1] {1} minutes
  27.     regsub {^0*([0-9])} [lindex $t 2] {1} seconds
  28.     set micsec [lindex $t 3]
  29.     append mtim "0." $micsec
  31.     set tim [expr 1.0*$hours*3600 + 1.0*$minutes*60 + 1.0*$seconds ]
  32.     set tim [expr $tim + 1.0*$mtim]
  35.     ##  check for time wrap
  36.     ##
  37.     if { $tim < $timezero } { set tim [expr $tim + 86400.0] }
  38.     return [expr $tim - $timezero]
  39. }
  41. proc outputPDF {cur_epoch incr tfile }  {
  43. set count 0
  44. set cur_time  0
  45. set tfileI [format "%s.sorted" $tfile]
  46. set tfileO [format "%s.pdf" $tfile]
  48. set fi [open $tfileI r ]
  49. set fo [open $tfileO w ]
  51. while {[gets $fi line] >= 0} {
  53. set cur_time [lindex $line 0]
  56. if {$cur_time > $cur_epoch} {
  57.    while {$cur_epoch < $cur_time} {
  59.      puts $fo "$cur_epoch   $count"
  61.      set cur_epoch [expr $cur_epoch + $incr]
  62.      set count 0
  63.    }
  64.    if {$cur_time <= $cur_epoch} {
  65.       set count 1
  66.    } else {
  67.       set count 0
  68.    }
  69. } else {
  70.    set count [expr $count + 1]
  71. }
  73. }
  75. puts $fo "$cur_epoch   $count"
  78. close $fo
  79. }
  81. proc outputCDF {tfile}  {
  83. set tfileI [format "%s.pdf" $tfile]
  84. set tfileO [format "%s.cdf" $tfile]
  86. set fi [open $tfileI r ]
  87. set fo [open $tfileO w ]
  89. set totalCnt 0
  90. set cumCnt 0
  91. while {[gets $fi line] >= 0} {
  92.    set cnt [lindex $line 1]
  93.    set totalCnt [expr $totalCnt + $cnt]
  94. }
  95. close $fi
  96. set fi [open $tfileI r ]
  97. while {[gets $fi line] >= 0} {
  98.    set value [lindex $line 0]
  99.    set cnt [lindex $line 1]
  100.    set cumCnt [expr $cumCnt + $cnt]
  101.    puts $fo "$value $cumCnt [expr ($cumCnt * 1.0) / ($totalCnt * 1.0)]"
  102. }
  104. }