El código
Using perl Syntax Highlighting
- #!usr/bin/perl
- #El script navideño
- #Coded By Doddy H
- while(true) {
- my($dia,$mes,$anio,$hora,$minutos,$segundos) = agarrate_la_hora();
- unless($dia eq "25" and $mes eq "12") {
- syswrite STDOUT,"[+] Fecha y hora : $dia/$mes/$anio $hora:$minutos:$segundos \r";
- } else {
- syswrite STDOUT,"\n\n[+] Feliz navidad !";
- <stdin>;
- exit(1);
- }
- }
- sub agarrate_la_hora {
- my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = localtime(time);
- $f+= 1900;
- $e++;
- return($d,$e,$f,$c,$b,$a);
- }
- #The End ?
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
