tiempoentrepaquetesEXP - #Tiempo de retardo punto a punto...

Info iconThis preview shows page 1. 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, ">tiempoentreenviosEXP.txt") || die ("Imposible abrir el archivo Trace.txt \n"); print "Files open\n"; $tiempo_anterior = 0; #$inicio = 0; $fin = 0; $first=1; $interval = 0; #Interval es el valor de donde arranca la simulacion #$debug =$a = 10; 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;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: #Tiempo de retardo punto a punto de trafico TCP con fid_ 1 # if($nodo1==2){ if($nodo2==3){ #print &quot;aqui\n&quot;; if($evento eq &quot;+&quot;){ #print &quot;aqui\n&quot;; if($flujo==3){ #print &quot;aqui\n&quot;; $delay = $tiempo-$tiempo_anterior;#Delay de cada paquede por flujo print Delay &quot;tiempo: &quot; .($delay). &quot; Paquete &quot; .($id).&quot; del flujo &quot; .($flujo). &quot;\n&quot;; $tiempo_anterior=$tiempo; } } } #$interval=$interval-1; } } close DATA;close(Delay); print &quot;|Tipe identifier|time|Source node|Destination node|\n&quot;; print &quot;|Packet name|Packet size|--Flags--|Source address|\n&quot;; print &quot;Destination address|Sequence number|Packet unique id|\n&quot;; print &quot;Well done\n&quot;; exit 0;...
View Full Document

Ask a homework question - tutors are online