seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

 » Programação Scripts » Perl » Baixa arquivos em uma lista de url atraves do wget

Baixa arquivos em uma lista de url atraves do wget

Ir para baixo  Mensagem [Página 1 de 1]

mmxm

avatar
avançado
avançado

Código:
#!/usr/bin/perl
# By MMxM

$sis="$^O";if ($sis eq linux){
main(); } else { print "[+] only for linux"; exit;}

main();

sub main(){
if ($#ARGV != 0){
print "
Baixa arquivos de uma lista de urls atraves do wget :D
Modo de uso: perl $0 lista.txt

";
exit;
}

$wget = $ARGV[0];

      open(a,"<$wget") or die "erro ao abrir $wget";
      @site = <a>;
      $b = scalar(@site);
      for($a>0;$a<$b;$a++)
   {
      chomp $site[$a];
   {
      print "\n[+] Baixando: $site[$a]\n\n";
      system("wget $site[$a]");
   }
}
}

Ir para o topo  Mensagem [Página 1 de 1]

 » Programação Scripts » Perl » Baixa arquivos em uma lista de url atraves do wget

Permissões neste sub-fórum
Não podes responder a tópicos