paquetesperdidosysutrafico - #!/usr/bin/perl1 print...

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,"") || die "Imposible abrir el archivo"; #Se abren los archivos a escribir las estadisticas open (Delay, ">paquetesperdidosysutrafico.txt") || die ("Imposible abrir el archivo Trace.txt \n"); print "Trabajando. ..\n \n"; $num_paquetes_tcp=0; $num_paquetes_cbr=0; $num_paquetes_exp=0; $inicio = 0; $fin = 0; $first=1; $interval = 0; #Interval es el valor de donde arranca la simulacion $debug =$a = 10; $a=0; $b=0; $c=0; $d=0; $e=0; $f=0; $g=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; #numero de paquetes perdidos (d) para cada aplicacion if ($evento eq "d"){ #print "" .($num_paquetes_tcp). "\n"; if ($flujo==1){ #print Delay "Flujo: " .($flujo). " Paquete: " . ($id). "
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

paquetesperdidosysutrafico - #!/usr/bin/perl1 print...

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