Bueno codeo esto para ver en que puedo mejorar programando perl usando sus opiniones.
El programa mata a Bill Gates o lo resucita jajaja
#!c:/perl64/bin/perl.exe
#Mataabilly-v1.0
#By overload
sub muerte{
print 'Este programa programara la hora y el dia en el que Bill Gates muera a su gusto ' ;
print 'Introduzca una hora(horas:minutos)-> ' . $hora;
my $hora = <STDIN>;
print 'Introduzca el dia, el mes y el año(dd/mm/aaaa)-> ' . $fecha;
my $fecha = <STDIN>;
print 'Mensaje que le quiere dejar-> ' . $mensaje;
my $mensaje = <STDIN>;
my @spl = split("/", $fecha);
my @spl2 = split(":", $hora);
print 'Bill Gates morira el ' .$spl[0] . ' del ' . $spl[1] . ' del año ' . $spl[2] . ' a las ' . $spl2[0] . ' horas ' . $spl2[1] . ' minutos con el mensaje ' . $mensaje;
menu();
}
sub resurreccion{
print 'Este programa resucitara a Bill Gates si lo que hizo fue matarlo(una cagada vamos) ';
print 'Introduzca la hora a la que saldra del caja/ataud y excavara hacia arriba :-p (hh:mm) -> ' . $hora2;
my $hora2 = <STDIN>;
print 'Introduzca la fecha en la que quiere que Billy vuelva a las andadas(dd/mm/aaaa)-> ' . $fecha2;
my $fecha2 = <STDIN>;
my @splh = split(":", $hora2);
my @splf = split("/", $fecha2);
if ($splf[1] == 01){
$splf[1] = 'Enero';
}
elsif($splf[1] == 02){
$splf[1] = 'Febrero';
}
elsif($splf[1] == 03){
$splf[1] = 'Marzo';
}
elsif($splf[1] == 04){
$splf[1] = 'Abril';
}
elsif($splf[1] == 05){
$splf[1] = 'Mayo';
}
elsif($splf[1] == 06){
$splf[1] = 'Junio';
}
elsif($splf[1] == 07){
$splf[1] = 'Julio';
}
elsif($splf[1] == 8){
$splf[1] = 'Agosto';
}
elsif($splf[1] == 9){
$splf[1] = 'Septiembre';
}
elsif($splf[1] == 10){
$splf[1] = 'Octubre';
}
elsif($splf[1] == 11){
$splf[1] = 'Noviembre';
}
elsif($splf[1] == 12){
$splf[1] = 'Diciembre';
}
print 'Con el poder que mi procesador(intel core i5) me da, yo, overload, a ti te resucito Bill Gates. Levantate y anda! ';
print 'Bill Gates resucito a las ' . $splh[0] . ' horas, ' . $splh[1] . ' minutos en el dia ' . $splf[0] . ' del mes ' . $splf[1] . ' del año ' . $splf[2];
menu();
}
sub menu{
print '
--------------------------------------------------------------------------------
===============================Chorrada by overload=============================
1.-Matar a Bill Gates (o a Billy)
2.-Resucitarlo
3.-Salir
--------------------------------------------------------------------------------
';
print 'Introduce la opcion que has elegido-> ' . $selec;
my $selec = <STDIN>;
empieza:
if($selec == 1){
muerte();
}
if ($selec == 2){
resurreccion();
}
if ($selec == 3){
exit();
}
else {
goto empieza;
}
}
menu();
Lo he intentado hacer lo mas dificil que he podido y se XD
Un saludo!
--------------EDITO--------------Nueva actualización eliminados los elsif ^^ :
#!c:/perl64/bin/perl.exe
#MataaBilly-v1.1
#By overload and a little help from kenkeiras
use strict; # que no se quede callado con los errores que no hay quien los encuentre
system("cls");
sub muerte{
print 'Este programa programara la hora y el dia en el que Bill Gates muera a su gusto ' ;
my $hora;
print 'Introduzca una hora(horas:minutos)-> ' .$hora;
$hora = <STDIN>;
my $fecha;
print 'Introduzca el dia, el mes y el año(dd/mm/aaaa)-> ' . $fecha;
$fecha = <STDIN>;
my $mensaje;
print 'Mensaje que le quiere dejar-> ' . $mensaje;
$mensaje = <STDIN>;
my @spl = split("/", $fecha);
my @spl2 = split(":", $hora);
print '
============================================================================' .
'Bill Gates morira el ' .$spl[0] . ' del ' . $spl[1] . ' del año ' . $spl[2] . ' a las ' . $spl2[0] . ' horas ' . $spl2[1] . ' minutos con el mensaje ' . $mensaje;
menu();
}
sub resurreccion{
print 'Este programa resucitara a Bill Gates si lo que hizo fue matarlo(una cagada vamos) ';
print 'Introduzca la hora a la que saldra del caja/ataud y excavara hacia arriba :-p (hh:mm) -> ';
my $hora2 = <STDIN>;
chomp($hora2);
print 'Introduzca la fecha en la que quiere que Billy vuelva a las andadas(dd/mm/aaaa)-> ';
my $fecha2 = <STDIN>;
chomp($fecha2);
my @splh = split(":", $hora2);
my @splf = split("/", $fecha2);
my @lista = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre');
my $mes = $lista[$splf[1] - 1]; # -1 por que empieza por 0
print 'Con el poder que mi procesador(intel core i5) me da, yo, overload, a ti te resucito Bill Gates. Levantate y anda! \n';
print 'Bill Gates resucito a las ' . $splh[0] . ' horas, ' . $splh[1] . ' minutos en el dia ' . $splf[0] . ' del mes ' . $mes . ' del año ' . $splf[2] . "\n" ;
menu();
}
sub menu{
print '
--------------------------------------------------------------------------------
===============================Chorrada by overload=============================
1.-Matar a Bill Gates (o a Billy)
2.-Resucitarlo
3.-Salir
--------------------------------------------------------------------------------
';
my $selec;
print 'Introduce la opcion que has elegido-> ' . $selec;
$selec = <STDIN>;
empieza:
if($selec == 1){
muerte();
}
if ($selec == 2){
resurreccion();
}
if ($selec == 3){
exit();
}
else {
goto empieza;
}
}
menu();
/*
* Programador para la muerte / resureccion de Bill Gates 1.1
* By Prohibido527
*/
#include<iostream>
#include<string>
using namespace std;
string Mes;
int Menu()
{
system("cls");
int opc;
printf("===========================Chorrada by Prohibido527=============================\n 1. Matar a Bill Gates\n 2. Resucitar a Bill Gates\n 3. Salir\n--------------------------------------------------------------------------------\n");
do
{
printf("Elige la opcion -> ");
scanf("%d", &opc);
if(opc != 1 && opc != 2 && opc!= 3)
printf("Opcion incorrecta... Ingresa de nuevo\n");
}while(opc != 1 && opc != 2 && opc!= 3);
return opc;
}
int valida(int hora, int min, int dia, int mes, int anio)
{
if(hora < 0 || hora > 23 || min < 0 || min > 59 || dia < 1 || dia > 31 || mes < 1 || mes > 12 || anio < 2012 )
{
printf("Upss! Parece de en tu afan de matar a Bill digitaste mal un dato!\n");
return 1;
}
if(anio == 2012)
{
if(anio > 0 && mes < 2 && dia < 4)
{
printf("Lastimosamente El Sr. Gates no ha muerto en esta fecha por lo tanto cambia la fecha\n");
return 1;
}
}
}
void Meses(int mes)
{
string arraymeses[] = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"};
for(int i = 1 ; i <= 12 ; i++)
{
if (mes == i)
{
Mes = arraymeses[i-1];
}
}
}
void Muerte()
{
int hora, min, dia, mes, anio;
char mensaje[250];
system("cls");
printf("Esta aplicacion programara el dia y la hora en que Bill Gates morira segun\nsu gusto\n\n * Separe la los datos Ej de hora : 23 50 Ej de fecha : 2 1 2012 *\n\n");
do
{
printf(">Digite Hora (HH MM) : ");
scanf("%d %d", &hora, &min);
printf(">Digite Fecha (DD MM AAAA) : ");
scanf("%d %d %d", &dia, &mes, &anio);
}while(valida(hora, min, dia, mes, anio) == 1);
fflush( stdin );
printf("Introduce un mesaje que le quisieras dejar : \n");
fgets(mensaje, 250, stdin);
Meses(mes);
printf("Bill Gates tiene programada en su agenda morir a la fecha : \n\n %d de ", dia);cout << Mes;printf(" de %d A las %d : %d y en su tumba dira :\n >> %s ", anio, hora, min, mensaje);
}
void Resucita()
{
int hora, min, dia, mes, anio;
system("cls");
printf("Esta aplicacion programara el dia y la hora en que Bull Gates resucitara (si ya lo mataste lol)\n\n");
do
{
printf(">Digite Hora en la que saldra de la tumba (HH MM) : ");
scanf("%d %d", &hora, &min);
printf(">Digite Fecha en la que volvera a 'vender' su S.O. (DD MM AAAA) : ");
scanf("%d %d %d", &dia, &mes, &anio);
}while(valida(hora, min, dia, mes, anio) == 1);
fflush( stdin );
Meses(mes);
printf("Por el poder que me otorga la ganja y demas alusinogenos yo! Prohibido527 le devuelvo el dolor de cabeza a Apple... Billy levantate y anda!\n\n --> Mr. Bill Gates a resucitado el dia %d de ", dia);cout << Mes;printf(" de %d a las %d:%d \n", anio, hora, min);
}
int main()
{
char reg;
do
{
int opcion = Menu();
switch(opcion)
{
case 1:
Muerte();
break;
case 2:
Resucita();
break;
case 3:
system("exit");
}
printf("\n\n>Desea volver al menu? (y/n)");
scanf("%c", ®);
}while(reg == 'y' || reg == 'Y');
}
#-------------------------------------------------------------------------------
# Nombre: Mata a Billy-v1.3
#
# Autor: overload
#
# Creado: 04/01/2012
# Copyright: (c) overload 2012
#-------------------------------------------------------------------------------
#!/usr/bin/env python
print ('''
--------------------------------------------------------------------------------
===============================Chorrada by overload=============================
1.-Matar a Bill Gates (o a Billy)
2.-Resucitarlo
3.-Salir
--------------------------------------------------------------------------------
''')
def muerte(hola, veces = 0):
print (veces * hola)
print ('Programe la hora y el dia en el que quiere que Bill Gates muera!')
hora = input('Introduzca a la hora que quiere que Billy muera(hh:mm): ')
fecha = input('Introduzca la fecha en la que quiere que Billy muera(dd/mm/aaaa): ')
if (len(hora) == 0):
print ('Lo siento debe introducir algo')
muerte()
elif (len(fecha) == 0):
print ('Lo siento debe introducir algo')
muerte()
else:
pass
mensaje = input('Introduzca el mensaje que le quiere dejar:')
fechas = fecha.split('/')
horas = hora.split(':')
print ('Bill Gates morira el dia ',fechas[0],' del mes ',fechas[1],' en el año ',fechas[2],' a las ',horas[0],':',horas[1],' minutos con el mensaje: ',mensaje )
condicion('hola', 0)
def condicion(hola, veces = 0):
print (veces * hola)
salir = input('¿Quiere salir(s/n)?: ')
if (salir == "s"): exit
elif(salir == "n"): menu('hola', 0)
else:
print ('Introduce una opcion valida')
condicion('hola', 0)
def resucitar(hola, veces = 0):
print (veces * hola)
print ('Este programa resucitara a Bill Gates si lo que hizo fue matarlo(una cagada vamos) ')
hora2 = input('Introduzca la hora a la que saldra del caja/ataud y excavara hacia arriba :-p (hh:mm) -> ')
fecha2 = input('Introduzca la fecha en la que quiere que Billy vuelva a las andadas(dd/mm/aaaa)-> ')
horas2 = hora2.split(':')
fechas2 = fecha2.split('/',)
lista = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Septiembre','Octubre','Noviembre','Diciembre')
mes = lista[int(fechas2[1]) - 1]
print ('Con el poder que mi procesador(intel core i5) me da, yo, overload, a ti te resucito Bill Gates. Levantate y anda!')
print ('Bill Gates resucito a las ',horas2[0],' horas, ',horas2[1],' minutos en el dia ',fechas2[0],' del mes ',mes,' del año ',fechas2[2])
condicion('hola', 0)
def menu(hola, veces = 0):
print (veces * hola)
a = input('Introduce la opcion que has elegido-> ')
if (a == '1'):
muerte('hola', 0)
elif (a == '2'):
resucitar('hola', 0)
elif (a == '3'):
exit
else:
menu('hola', 0)
menu('hola', 0)
En fin mas adelante intentare hacerla en php/html
Un saludo de nuevo!
