totalpaquetesTCP_CBR_EXP - if($flujo==1){ #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 "La estructura del trace es: \n \n"; 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 \n"; 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, ">numpaquetesTCPCBREXP.txt") || die ("Imposible abrir el archivo Trace.txt \n"); print "Trabajando. ..\n \n"; p $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; 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; n if($nodo1==3){ #print "aqui\n"; if($nodo2==4){ #print if($evento eq "r"){ #print "aqui\n";
Background image of page 1

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

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

Unformatted text preview: if($flujo==1){ #print "aqui\n"; $num_paquetes_tcp = $num_paquetes_tcp + 1; } } } } if($nodo1==3){ #print "aqui\n"; if($nodo2==4){ #print "aqui\n"; if($evento eq "r"){ #print "aqui\n"; if($flujo==2){ #print "aqui\n"; $num_paquetes_cbr = $num_paquetes_cbr + 1; } } } } if($nodo1==3){ #print "aqui\n"; if($nodo2==4){ #print "aqui\n"; if($evento eq "r"){ #print "aqui\n"; if($flujo==3){ #print "aqui\n"; $num_paquetes_exp = $num_paquetes_exp + 1; } } } } } print Delay "El numero de paquetes TCP es: " .($num_paquetes_tcp). "\n"; print Delay "El numero de paquetes CBR es: " .($num_paquetes_cbr). "\n"; print Delay "El numero de paquetes EXP es: " .($num_paquetes_exp). "\n"; print "El total de paquetes TCP es: " .($num_paquetes_tcp). "\n" ; print "El total de paquetes CBR es: " .($num_paquetes_cbr). "\n" ; print "El total de paquetes EXP es: " .($num_paquetes_exp). "\n \n" ; print "Bien Hecho\n"; #print $num_paquetes_tcp; close DATA;close(Delay); 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 東京国際大学.

Page1 / 2

totalpaquetesTCP_CBR_EXP - if($flujo==1){ #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