Mostrar más instrucciones
1
 Definir los parámetros de línea de comandos que desea utilizar. Por ejemplo , podría usar un parámetro de tiempo para especificar la duración de la inundación. Si se omite el parámetro , la inundación puede ser continua. Un ejemplo del uso de la secuencia de comandos Perl en la línea de comando podría ser el siguiente : 
 
 flood.pl - port puerto - size bytes - time segundos - kbps de ancho de banda - retardo ms 
 
 2 
 Incluir el " zócalo ", " Getopt :: Long" y "Time :: HiRes " módulos Perl en el script . El módulo de " Socket " carga el C socket.h define y estructura manipuladores . El " Getopt :: Long" módulo implementa la función getOptions (). La función lee la línea de comandos del programa, busca argumentos a juego , y si lo encuentra, establece la opción correspondiente en true . El "Time :: HiRes " módulo proporciona tiempo y contadores de tiempo de alta resolución, como la llamada al sistema " gettimeofday " . Por ejemplo : 
 
 uso Getopt :: Largo ; 
 
 Socket uso ; 
 
 Tiempo de servicio :: HiRes ; 
 3 
 Declarar las variables . Por ejemplo : 
 
 nuestra $ port = 0 ; 
 
 nuestra $ size = 0 ; 
 
 nuestra $ tiempo = 0 ; 
 
 nuestra $ pc = 0 ; 
 
 nuestra $ delay = 0 ; 
 4 
 Definir el tipo de las variables declaradas. Por ejemplo : 
 getOptions 
 ( 
 " port = i" 
 = > \\ $ puerto , # puerto UDP utilizar 
 
 " size = i" = > \\ $ tamaño, tamaño # 
 
 "ancho de banda = i" paquete = > \\ $ bw, # cuánto ancho de banda que consumen 
 
 " tiempo = i" = > \\ $ , tiempo de ejecución # 
 
 " delay = f " = > \\ $ retardo , retardo # 
 5 
 código de comando por defecto de parámetros de línea entre paquetes y el uso. Por ejemplo , usted puede configurar el tamaño del paquete 256 bytes si el parámetro "ancho de banda " se utiliza sin el parámetro "tamaño" : 
 
 $ size = 256 si $ && $ bw tamaño ; 
 6 
 incluyen la impresión a la pantalla de lo que el guión está haciendo , por ejemplo : . 
 
 print " Inundación $ IP " . ( $ port $ port : "al azar ") . "puerto " 
 
 ( $ size . ? . "$ size- byte ": " tamaño al azar ") "paquetes" ($ time " por $ tiempo segundos ": " "). " \\ n " ; 
 . < ? br> 
          
