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

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

通讯编程

开发平台：

Visual C++

ht-post.pl：源码内容
  1. # Script parses trace file for hidden terminal.
  2. # It sets colors to nodes and packets depending on their
  3. # state.
  4. # While doing carrier sense, nodes turn green. 
  5. # When nodes backoff, they turn purple.
  6. # When there is a collision at the reciever, it turns red.
  8. sub usage {
  9. print STDERR "usage: $0 <Base Trace file> <Base nam trace file> <output nam trace file>n";
  10. exit;
  11. }
  13. #@ARGV[0] - source trace file
  14. #@ARGV[1] - source nam trace file
  15. #@ARGV[2] - output nam trace file
  17. open (Source, $ARGV[0]) or die "Cannot open $ARGV[0] : $!n";
  18. open (NamSource, $ARGV[1]) or die "Cannot open $ARGV[1] : $!n";
  19. open (Destination, ">$ARGV[2]") or die "Cannot open $ARGV[2]: $!n";
  21. $namline = <NamSource>;
  22. while ($namline) { 
  23. if ($namline =~ /-i 3 -n green/) {
  24. print Destination $namline;
  25. print Destination 'v -t 0.000 -e sim_annotation 0.0 1 COLOR LEGEND : ', "n";
  26. print Destination 'v -t 0.001 -e sim_annotation 0.001 2 Nodes turn green when they are sensing carrier ', "n";
  27. print Destination 'v -t 0.002 -e sim_annotation 0.002 3 Nodes turn purple when they backoff ', "n";
  28. print Destination 'v -t 0.003 -e sim_annotation 0.003 4 Nodes turn red when there is a collision ', "n";
  29. print Destination 'v -t 0.10000000 -e set_rate_ext 0.200ms 1', "n";
  30. last;
  31. }
  32. else
  33. {
  34. print Destination $namline;
  35. $namline = <NamSource>;
  36. }
  37. }
  39. $num_mov = 0;
  41. $i =5;
  43. $last_time = 0.1000;
  44. $line = <Source>;
  45. while ($line) {
  46. if ($line =~ /SENSING_CARRIER/) {  # parses the trace file in case of a Carrier Sense event.
  47. @fields = split ' ', $line;
  48. $next_line = <Source>;
  49. if ($next_line =~ /BACKING_OFF/) { # parses trace file in case of a BACK_OFF event.
  50. $other_node = 2;
  51. if (@fields[4] == 2)
  52. {
  53. $other_node = 0;
  54. }
  56. $t = @fields[2] +0.005;
  58. print Destination 'n -t ',@fields[2], ' -s ', @fields[4], ' -S COLOR -c green -o black -I black ', "n";
  59. print Destination 'n -t ',@fields[2], ' -s ',@fields[4],' -S DLABEL -l "Carrier sense" -L ""', "n";
  60. print Destination 'v -t ',@fields[2], ' -e sim_annotation ', @fields[2],' ',$i,' CASE 1 : NO CONTENTION ',"n";
  61. $last_time = @fields[2]+ 0.00005;
  62. $i++;
  63. print Destination 'v -t ',$last_time,' -e sim_annotation ', $last_time,' ', $i,' Only Node 2 is sending data packets and therefore no contention',"n";
  64. $last_time = $last_time+0.00005;
  65. $i++;
  66. $next_duration = @fields[2] + 0.01;
  68. print Destination 'n -t ', $next_duration, ' -s ', @fields[4], ' -S COLOR -c black -o green -i black -I green ', "n";
  69. print Destination 'n -t ', $next_duration, ' -s ', @fields[4], ' -S DLABEL -l "" -L ""', "n";
  70. print Destination '+ -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  71. print Destination '- -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  72. print Destination 'h -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  73. print Destination 'r -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  75. @fields[2] = $next_duration + 0.01;
  77. print Destination 'n -t ', @fields[2], ' -s ', @fields[4], ' -S COLOR -c green -o black -i green -I black ', "n";
  78. print Destination 'n -t ', @fields[2], ' -s ', @fields[4], ' -S DLABEL -l "Carrier sense" -L ""', "n";
  79. print Destination 'v -t ', @fields[2], ' -e sim_annotation ', @fields[2],' ', $i,' CASE 2 : BACKOFF ',"n";
  80. $last_time = @fields[2]+0.00005;
  81. $i++;
  82. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 and Node 2 are in range of each other, they do carrier sense at slightly different times',"n";
  83. $last_time = $last_time + 0.00005;
  84. $i++;
  85. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time,' ', $i,' so Node 0 finds the channel not free, and thus backs off', "n";
  86. $last_time = $last_time+0.00005;
  87. $i++;
  88. $next_duration = @fields[2] + 0.01;
  90. print Destination 'n -t ', $next_duration, ' -s ', $other_node, ' -S COLOR -c green -o black -i green -I black ', "n";
  91. print Destination 'n -t ', $next_duration, ' -s ', $other_node, ' -S DLABEL -l "Carrier Sense" -L ""', "n";
  93. print Destination 'n -t ', $next_duration,' -s ', @fields[4], ' -S COLOR -c black -o green -i black -I green ', "n";
  94. print Destination 'n -t ', $next_duration, ' -s ', @fields[4], ' -S DLABEL -l "" -L ""', "n";
  95. print Destination '+ -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  96. print Destination '- -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  97. print Destination 'h -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  98. print Destination 'r -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  100. $next_duration = $next_duration + 0.005;
  101. print Destination 'n -t ', $next_duration, ' -s ', $other_node, ' -S COLOR -c purple -o green -i purple -I green ', "n";
  102. print Destination 'n -t ', $next_duration, ' -s ', $other_node, ' -S DLABEL -l "Backing off" -L ""', "n";
  104. $next_duration = $next_duration + 0.005;
  105. print Destination 'n -t ',$next_duration,' -s ', $other_node,' -S COLOR -c green -o purple -i green -I purple ', "n";
  106. print Destination 'n -t ',$next_duration,' -s ', $other_node,' -S DLABEL -l "Carrier sense" -L ""', "n"; 
  107. $next_duration = $next_duration + 0.005;
  108. print Destination 'n -t ',$next_duration,' -s ', $other_node,' -S COLOR -c black -o green -i black -I green ', "n";
  109. print Destination 'n -t ',$next_duration,' -s ', $other_node,' -S DLABEL -l "" -L ""', "n";
  110. print Destination '+ -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  111. print Destination '- -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  112. print Destination 'h -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  113. print Destination 'r -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  115. $line = <Source>;
  116. }
  117. elsif (($next_line =~ /SENSING_CARRIER/) && ($num_mov == 0)) {
  118. @new_fields = split ' ', $next_line;
  119. print Destination 'n -t ', @new_fields[2] , ' -s 0 -S COLOR -c green -o black -i green -I black ',"n";
  120. print Destination 'n -t ', @new_fields[2], ' -s 0 -S DLABEL -l "Carrier sense" -L ""', "n";
  121. print Destination 'n -t ', @new_fields[2] , ' -s 2 -S COLOR -c green -o black -i green -I black ', "n";
  122. print Destination 'n -t ', @new_fields[2], ' -s 2 -S DLABEL -l "Carrier Sense" -L ""' , "n";
  124. print Destination 'v -t ', @new_fields[2], ' -e sim_annotation ', @new_fields[2],' ', $i,' CASE 3 : COLLISION WHEN NODES SEND AT SAME TIME  ',"n";
  125. $last_time = @new_fields[2]+0.00005;
  126. $i++;
  127. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Sender nodes are in range of each other but they do carrier sense at the same time,  ',"n";
  128. $last_time = $last_time+0.00005;
  129. $i++;
  130. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time, ' ',$i,' thus finding channel to be free , so they send packets at the same time and therefore result in collision at the receiver',"n";
  131. $i++;
  132. $last_time = $last_time +0.00005;
  134. $duration = @new_fields[2] + 0.01;
  135. print Destination 'n -t ', $duration, ' -s 0 -S COLOR -c black -o green -i black -I green ', "n";
  136. print Destination 'n -t ', $duration, ' -s 0 -S DLABEL -l "" -L ""', "n";
  137. print Destination 'n -t ', $duration, ' -s 2 -S COLOR -c black -o green -i black -I green ', "n";
  138. print Destination 'n -t ', $duration, ' -s 2 -S DLABEL -l "" -L ""', "n";
  139. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  140. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  141. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  142. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  143. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  144. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  145. $red_duration = $duration + 0.01;
  146. $red_end_duration = $red_duration + 0.01;
  147. print Destination 'n -t ', $red_duration, ' -s 1 -S COLOR -c red -o black -i red -I black ', "n";
  148. print Destination 'n -t ', $red_duration, ' -s 1 -S DLABEL -l "Collision " -L ""', "n";
  149. print Destination 'd -t ', $red_duration, ' -s 1 -d 2 -p message -e 5000 -a 8 ', "n";
  150. print Destination 'n -t ', $red_end_duration, ' -s 1 -S COLOR -c black -o red -i black -I red ', "n";
  151. print Destination 'n -t ', $red_end_duration, ' -s 1 -S DLABEL -l "" -L ""', "n";
  152. $line = <Source>;
  153. }
  154. elsif(($next_line !~ /SENSING_CARRIER/) && ($num_mov > 0)) {
  156. print Destination 'n -t ', @fields[2] , ' -s 0 -S COLOR -c green -o black -i green -I black ',"n";
  157. print Destination 'n -t ', @fields[2], ' -s 0 -S DLABEL -l "Carrier sense" -L ""', "n";
  158. @fields[2] = @fields[2] + 0.005;
  159. print Destination 'n -t ', @fields[2] , ' -s 2 -S COLOR -c green -o black -i green -I black ', "n";
  160. print Destination 'n -t ', @fields[2], ' -s 2 -S DLABEL -l "Carrier Sense" -L ""' , "n";
  162. print Destination 'v -t ', @fields[2], ' -e sim_annotation ', @fields[2],' ', $i,' CASE 4 : SUCCESSFUL TRANSMISSION WHEN NODES ARE OUT OF RANGE OF EACH OTHER',"n";
  163. $last_time = @fields[2]+0.00005;
  164. $i++;
  165. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Sender nodes are out of range of each other ', "n";
  166. $last_time = $last_time + 0.00005;
  167. $i++;
  168. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time,' ', $i, '  but they result in successful transmission since they send packets at different times',"n";
  169. $last_time = $last_time+0.00005;
  170. $i++;
  172. $duration = @fields[2] + 0.005;
  173. print Destination 'n -t ', $duration, ' -s 0 -S COLOR -c black -o green -i black -I green ', "n";
  174. print Destination 'n -t ', $duration, ' -s 0 -S DLABEL -l "" -L ""', "n";
  175. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  176. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  177. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  179. $duration = $duration + 0.005;
  180. print Destination 'n -t ', $duration, ' -s 2 -S COLOR -c black -o green -i black -I green ', "n";
  181. print Destination 'n -t ', $duration, ' -s 2 -S DLABEL -l "" -L ""', "n";
  182. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  183. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  184. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  185. $line = <Source>;
  186. $line = <Source>;
  187. $line = <Source>;
  188. }
  189. elsif(($next_line =~ /SENSING_CARRIER/) && ($num_mov > 0)) {
  190. print Destination 'n -t ', @fields[2] , ' -s 0 -S COLOR -c green -o black -i green -I black ',"n";
  191. print Destination 'n -t ', @fields[2], ' -s 0 -S DLABEL -l "Carrier sense" -L ""', "n";
  192. print Destination 'n -t ', @fields[2] , ' -s 2 -S COLOR -c green -o black -i green -I black ', "n";
  193. print Destination 'n -t ', @fields[2], ' -s 2 -S DLABEL -l "Carrier Sense" -L ""' , "n";
  196. print Destination 'v -t ', @fields[2], ' -e sim_annotation ', @fields[2],' ', $i,' CASE 5 : COLLISION IN A HIDDEN TERMINAL SCENARIO',"n";
  197. $last_time = @fields[2]+0.00005;
  198. $i++;
  199. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Sender nodes are out of range of each other ', "n";
  200. $last_time = $last_time + 0.00005;
  201. $i++;
  202. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ', $i,' even though they both do carrier sense, they cannot hear each other and thus find the channel free ', "n";
  203. $i++;
  204. $last_time = $last_time + 0.00005;
  205. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time,' ', $i,' and they send packets at the same time, thus resulting in a collision at the receiver. ',"n";
  206. $last_time = $last_time+0.00005;
  207. $i++;
  208. $duration = @fields[2] + 0.005;
  209. print Destination 'n -t ', $duration, ' -s 0 -S COLOR -c black -o green -i black -I green ', "n";
  210. print Destination 'n -t ', $duration, ' -s 0 -S DLABEL -l "" -L ""', "n";
  211. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  212. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  213. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  215. print Destination 'n -t ', $duration, ' -s 2 -S COLOR -c black -o green -i black -I green ', "n";
  216. print Destination 'n -t ', $duration, ' -s 2 -S DLABEL -l "" -L ""', "n";
  217. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  218. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  219. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  220. $red_duration = $duration + 0.01;
  221. $red_end_duration = $red_duration + 0.01;
  222. print Destination 'n -t ', $red_duration, ' -s 1 -S COLOR -c red -o black -i red -I black ', "n";
  223. print Destination 'n -t ', $red_duration, ' -s 1 -S DLABEL -l "Collision " -L ""', "n";
  224. print Destination 'd -t ', $red_duration, ' -s 1 -d 2 -p message -e 5000 -a 8 ', "n";
  225. print Destination 'n -t ', $red_end_duration, ' -s 1 -S COLOR -c black -o red -i black -I red ', "n";
  226. print Destination 'n -t ', $red_end_duration, ' -s 1 -S DLABEL -l "" -L ""', "n";
  227. $line = <Source>;
  228. $line = <Source>;
  229. $line = <Source>;
  230. }
  232. else {
  233. $line = <Source>;
  234. } 
  235. }
  236. elsif ($line =~ /^M/) {  # parses trace file when node moves.
  237. @fields = split ' ', $line;
  238. @fields[3] =~ m/(d+.d+)/;
  239. @fields[3] = $1;
  240. @fields[4] =~ m/(d+.d+)/;
  241. @fields[4] = $1;
  242. @fields[6] =~ m/(d+.d+)/;
  243. @fields[6] = $1;
  244. $t = (@fields[6] - @fields[3])/@fields[8];
  246. print Destination 'v -t ', @fields[1], ' -e sim_annotation ', @fields[1],' ', $i,' HIDDEN TERMINAL SCENARIO : Node 2 moves and hence is out of range of node 0',"n";
  247. $last_time = @fields[1]+0.00005;
  248. $i++;
  250. @fields[1] = @fields[1] + 0.005;
  251. print Destination 'n -t ', @fields[1], ' -s ', @fields[2], ' -x ', @fields[3], ' -y ', @fields[4], ' -U ',@fields[8], ' -V 0.00 -T ', $t,"n";
  252. @fields[1] = @fields[1] + 0.100000;
  255. $num_mov ++;
  256. $line = <Source>;
  257. }
  258. else {
  259. $line = <Source>;
  260. }
  261. }
  263. close Source;
  264. close NamSource;
  265. close Destination;