Bem vindo! Poste aqui seus codigos ou textos. Se desejar, pode colocar uma senha para leitura do mesmo!

Postado por comando lista de em May Wed 25th 11:50 AM - Never Expires
Download | Novo paste

  1. #!/usr/bin/perl
  2.  
  3. open(INFILE, "<", "IPs") or die("cannot open infile:\n$!");
  4.  
  5. my @ip_array = <INFILE>;
  6.  
  7. chomp(@ip_array);
  8.  
  9. foreach(@ip_array)
  10.         {
  11.           if($_ =~ /\d+.\d+.\d+.\d+/)
  12.                 {
  13.                  print("\n****Conectando em: $&`****\n ");
  14.                  system("echo -e CU |nc $& 6667 -w2");
  15.                 }
  16.         }
Linguagem:
Para fazer um highlight em uma linha particular, insira o prefixo @@





© 2019 - #LinuxAjuda