El script navideño

  • 0 Respuestas
  • 1707 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

El script navideño

  • en: Diciembre 24, 2012, 10:56:38 am
Ja , como regalo de navidad les dejo el script navideño xDDD.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #El script navideño
  3. #Coded By Doddy H
  4.  
  5. while(true) {
  6.  
  7. my($dia,$mes,$anio,$hora,$minutos,$segundos) = agarrate_la_hora();
  8.  
  9. unless($dia eq "25" and $mes eq "12") {
  10. syswrite STDOUT,"<ul class="bbc_list"><li type="square"> Fecha y hora : $dia/$mes/$anio $hora:$minutos:$segundos \r";[/li][/list]
  11. } else {
  12. syswrite STDOUT,"\n\n</li><li type="square"> Feliz navidad !";[/li][/list]
  13. <stdin>;
  14. exit(1);
  15. }
  16.  
  17. }
  18.  
  19. sub agarrate_la_hora {
  20.  
  21. my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = localtime(time);
  22.  
  23. $f+= 1900;
  24. $e++;
  25.  
  26. return($d,$e,$f,$c,$b,$a);
  27.  
  28. }
  29.  
  30. #The End ?
  31.  

 

[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 3472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 4370
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
MD5CKRACKER script [perl] par *..::Key-m0rt::..*

Iniciado por ..::key-m0rt::..

Respuestas: 0
Vistas: 2341
Último mensaje Marzo 24, 2010, 09:43:14 am
por ..::key-m0rt::..
[Perl] - Spoofed Attack script

Iniciado por ZanGetsu

Respuestas: 0
Vistas: 7298
Último mensaje Julio 24, 2017, 10:12:10 am
por ZanGetsu
115 Script en Perl

Iniciado por ZanGetsu

Respuestas: 2
Vistas: 4177
Último mensaje Noviembre 29, 2013, 07:56:07 pm
por Tulkalex