Lo que hace el aburrimiento un Perl Script para hacer consultas lol... Para quien le pueda servidr de algo recuerden que no soy muy limpia codeando.
#!/usr/bin/perl -w
my $usuario = "Mary" ;
my $pass = "123" ;
my $tiempo = localtime() ;
printf "Bienvenidos a PerLyDB Version 1.0\n" ;
printf "Inserte el Login : " ;
chomp(my $eleccion = <STDIN>);
printf "Inserte la contraseña : " ;
chomp(my $contraseña = <STDIN>) ;
if ($eleccion eq $usuario && $contraseña eq $pass) { principal() ; }
else {
for(open(INTRUSOS, ">>intrusos.log")){
my $temporal = INTRUSOS ;
printf $temporal (" ********** Acceso Denegado *************************\n");
printf $temporal ("Nombre que intento ingresar al sistema : $eleccion \n") ;
printf $temporal ("Password Utilizado para ingresar : $contraseña \n");
printf $temporal ("Hora que intento ingresar al sistema : $tiempo \n\n\n");
close($temporal);
printf "Lo siento Acceso denegado\n"
}
}
sub principal {
while(1) {
printf "Bienvenidos al Sistema\n" ;
print "Cargando Opciones.....\n" ;
sleep(1) ;
printf "Que desea hacer \n" ;
printf "1 - Ver Listado de Vehiculos\n" ;
printf "2 - Ver Listado Clientes con Deudas\n" ;
printf "3 - Agregar nuevo Vehiculo \n" ;
printf "4 - Agregar nuevo cliente deudor\n" ;
printf "5 - Salir del sistema\n" ;
my $seleccion = <STDIN> ;
chomp($seleccion) ;
if ($seleccion == '1') {
vehiculos() ; }
elsif ($seleccion == '2') {
clientes() ; }
elsif ($seleccion == '3') {
agrega_auto() ; }
elsif ($seleccion == '4') {
agrega_cliente() ; }
elsif ($seleccion == '5') {
exit() ; }
else { principal() ; }
}
sub vehiculos {
for(open(INTRUSOS, "vehiculos.log")) {
my @autos = <INTRUSOS> ;
my $autos1 = @autos ;
print "Vehiculos Disponibles \n @autos \n" ;
sleep(1) ;
}
} ;
sub clientes {
for(open(INTRUSOS, "clientes.log")) {
my @clientes = <INTRUSOS> ;
print "Clientes con Deudas \n @clientes \n" ;
sleep(1);
}
}
sub agrega_auto {
for(open(INTRUSOS, ">>vehiculos.log")) {
my $temporal = INTRUSOS ;
printf "Inserte la marca del vehiculo : " ;
chomp (my $marca = <STDIN>) ;
printf "Inserte el Ano de Fabricacion : " ;
chomp (my $ano = <STDIN>) ;
printf "Inserte el precio del vehiculo : " ;
chomp (my $precio = <STDIN>) ;
print "Inserte la Placa \n" ;
chomp (my $placa = <STDIN>) ;
printf "Inserte el color \n" ;
chomp (my $color = <STDIN>) ;
printf $temporal " ----- Datos del Vehiculo -------- \n " ;
printf $temporal " Vehiculo Marca $marca \n ";
printf $temporal " Ano de Fabricacion $ano \n" ;
printf $temporal " Precio Disponible $precio \n " ;
printf $temporal " Fecha de Inclusion $tiempo \n" ;
printf $temporal " Color del Vehiculo $color : " ;
printf $temporal "Placa del vehiculo $placa : " ;
printf $temporal " \n \n " ;
close($temporal) ;
}
}
sub agrega_cliente {
for(open(INTRUSOS, ">>clientes.log")) {
my $temporal = INTRUSOS ;
printf "Inserte el nombre completo del Cliente : " ;
chomp (my $clientito = <STDIN>) ;
printf "Inserte su Cedula : " ;
chomp (my $cedula = <STDIN>) ;
printf "Inserte Monto que adeuda : " ;
chomp (my $precio = <STDIN>) ;
print "Inserte Paga que debe cumplir mensual \n" ;
chomp (my $paga = <STDIN>) ;
printf "Inserte Vehiculo y Precio que compro \n" ;
chomp (my $vehiculo = <STDIN>) ;
printf "Inserte Direccion del cliente \n" ;
chomp (my $direccion = <STDIN>) ;
printf $temporal " ----- Datos del Cliente Adeudor -------- \n " ;
printf $temporal " Estimado Cliente $clientito \n ";
printf $temporal " Residente en $direccion \n" ;
printf $temporal " Con cedula de identidad # $cedula \n " ;
printf $temporal " Adeuda un Monto por el valor de $precio \n" ;
printf $temporal " Por lo cual debe pagar mensualmente $paga : " ;
printf $temporal " \n \n " ;
close($temporal) ;
}
}
}