Foro de elhacker.net

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) ;
}
}
}