tareans2 - #!/usr/bin/perl1 print "Analisis de datos con la...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
#!/usr/bin/perl1 # print "Analisis de datos con la herramienta PERL\n"; open (DATA,"Trace.tr") || die "Imposible abrir el archivo Trace.tr"; #Se abren los archivos a escribir las estadisticas open (Delay, ">Trace.txt") || die ("Imposible abrir el archivo Trace.txt \n"); print "Files open\n"; p #$inicio = 0; $fin = 0; $first=1; $interval = 0; #Interval es el valor de donde arranca la simulacion #$debug =$a = 10; $tiempo_final_tcp = 0; $tiempo_final_cbr = $0; $tiempo_final_exp = 0; $tiempo_final_tcp = 0; $tiempo_final_cbr = $0; $tiempo_final_exp = 0; $num_paquetes_tcp = 0; $num_paquetes_cbr = 0; $num_paquetes_exp = 0; $ while (<DATA>) { @datos = split (' '); $evento=$datos[0]; $tiempo=$datos[1]; $nodo1=$datos[2]; $nodo2=$datos[3]; $tipo=$datos[4]; $size=$datos[5]; $label=$datos[6]; $flujo=$datos[7]; $id=$datos[11]; $ next if $tiempo < $interval; #Tiempo de retardo punto a punto de trafico TCP con fid_ 1 # #Numero de paquetes de todos los que llegan al sink if($evento eq "r"){ if ($flujo==1){
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 03/23/2010 for the course ELECTRONIC mems taught by Professor Juanariza during the Spring '10 term at 東京国際大学.

Page1 / 2

tareans2 - #!/usr/bin/perl1 print "Analisis de datos con la...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online