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

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, ">tiempoflujoEXP.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 "aqui\n"; if($evento eq "+"){ #print "aqui\n"; if($flujo==3){ #print "aqui\n"; $delay = $tiempo;#Delay de cada paquede por flujo print Delay "tiempo: " .($delay). " Paquete " .($id)." del flujo " .($flujo). "\n"; } } } #$interval=$interval-1; } } close DATA;close(Delay); print "|Tipe identifier|time|Source node|Destination node|\n"; print "|Packet name|Packet size|--Flags--|Source address|\n"; print "Destination address|Sequence number|Packet unique id|\n"; print "Well done\n"; exit 0;...
View Full Document

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

Ask a homework question - tutors are online