manejodatostrace - $size=$datos[5]; $label=$datos[6];...

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 PERL\n"; p open (DATA,"Trace.tr.tr") || die "Imposible abrir el archivo Trace.tr"; #Se abren los archivos a escribir las estadisticas open (Delay, ">cbrdelaylan.txt") || die ("Imposible abrir el archivo cbrdelaylan.txt \n"); print "Archivos abiertos\n"; p $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];
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: $size=$datos[5]; $label=$datos[6]; $flujo=$datos[7]; $id=$datos[11]; next if $tiempo < $interval; n if ($nodo1==5){ if(evento eq "+"){ $delay1[$flujo][$id] = $tiempo; } } if ($node2==0){ if($evento eq "r"){ if ($flujo==5){ $delay[$flujo][%id] = $tiempo - $delay1[$flujo][$id];#Delay de cada paquede por flujo print Delay "tiempo: " .($tiempo)." Paquete $id del flujo $flujo: Retardo" .(1000*$delay[$flujo][$id])."ms\n"; } } } } close DATA;close(Delay); print "Se termino\n"; exit 0;...
View Full Document

Ask a homework question - tutors are online