Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Simple Downloader 0.1

  • 0 Respuestas
  • 1174 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Mayo 05, 2012, 09:18:24 pm »
Un simple script en perl para bajar archivos.

Código: Perl
  1. #!usr/bin/perl
  2. #Simple downloader 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split qw(uri_split);
  7.  
  8. my $nave = LWP::UserAgent->new;
  9. $nave->agent(
  10. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  11. );
  12. $nave->timeout(20);
  13.  
  14. head();
  15. unless ( $ARGV[0] ) {
  16.     sintax();
  17. }
  18. else {
  19.     now( $ARGV[0] );
  20. }
  21. copyright();
  22.  
  23. sub now {
  24.  
  25.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  26.  
  27.     if ( $path =~ /(.*)\/(.*)$/ ) {
  28.         my $file = $2;
  29.         print "\n[+] Downloading ....\n";
  30.         if ( download( $_[0], $file ) ) {
  31.             print "\n[+] File downloaded\n";
  32.         }
  33.         else {
  34.             print "\n[-] Error\n";
  35.         }
  36.     }
  37. }
  38.  
  39. sub sintax {
  40.     print "\n[+] Sintax : $0 <url>\n";
  41. }
  42.  
  43. sub head {
  44.     print "\n-- == Simple Downloader == --\n\n";
  45. }
  46.  
  47. sub copyright {
  48.     print "\n\n(C) Doddy Hackman 2012\n\n";
  49.     exit(1);
  50. }
  51.  
  52. sub download {
  53.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  54.         if ( -f $_[1] ) {
  55.             return true;
  56.         }
  57.     }
  58. }
  59.  
  60. #The End ?
  61.  
  62.  
« Última modificación: Marzo 14, 2015, 10:20:54 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 4203
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 2266
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1785
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 2026
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 2605
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora