elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Peque Perl Script para hacer consultas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Peque Perl Script para hacer consultas  (Leído 2,003 veces)
^Tifa^


Desconectado Desconectado

Mensajes: 2.804


Ver Perfil
Peque Perl Script para hacer consultas
« en: 8 Octubre 2007, 04:11 am »

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


« Última modificación: 8 Octubre 2007, 04:13 am por ^TiFa^ » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Una pequeña duda ( se me olvido jaja )
Foro Libre
BlackZeroX 5 2,628 Último mensaje 9 Febrero 2011, 05:04 am
por Roy-Mustang
Hacer un Script para un router
Scripting
Meta 0 3,829 Último mensaje 1 Febrero 2014, 20:02 pm
por Meta
¿Puedo hacer consultas sobre Apple o Mac?
Dudas Generales
victorsnk 2 2,260 Último mensaje 10 Febrero 2015, 17:59 pm
por victorsnk
AYUDA con Script para un plugin de perl!
Scripting
Kithai 1 2,070 Último mensaje 21 Noviembre 2016, 16:58 pm
por Ocelot1994
hacer dos consultas diferentes en entity framework
.NET (C#, VB.NET, ASP)
djnilo 1 2,178 Último mensaje 9 Mayo 2017, 14:41 pm
por TickTack
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines