Foro - Perl en Español

#!/usr/bin/env perl
use strict; #Esto es un pragma muy útil
#Formato: [usuario];[password]EOL

#Abrimos el archivo/fichero
open FL, "archivo_password" or die
    "No se puede abrir el achivo: $!\n";
while ( my $linea = <FL> ){
    chomp $linea;
    if ( $linea =~ s/^\[(.*)\];\[.*\]$/ ){
        print "El usuario es $1\n";
        print "Con password $2\n";
    }
    else { warn "archivo_password: línea $. no cumple con el formato\n"; }
}
close FL;

my $nombreUsuario;
my $password;
my $pwd;
my @datos;
my $auxtexto;
my %dato;
my $usr;
my $auxvalor;
my $auxver;
# Se crea un nuevo usuario y se guarda en el archivo


# se abre el archivo para escritura.
# pre = niguno.
# post = el archivo es abierto para escritura.
# future = validar si se abrio o no.
sub abrirArchivoEscritura {
        open(usuarios,">>usuarios.txt");
}

# se abre el archivo para lectura.
# pre = niguno.
# post = el archivo es abierto para lectura.
# future = validar si se abrio o no.
sub abrirArchivoLectura {
        open(usuarios,"usuarios.txt");
}

# se cierra el archivo.
# pre = el archivo debe estar abierto.
# post = el archivo es cerrado.
# future = validar si se cerro o no.
sub cerrarArchivo {
        close(usuarios);
}


# lee el archivo y verifica si existe el par usr,pwd valido
# pre = el archivo debe estar abierto.
# post = 1 si el psw pertenece al usr 2 si pws es distinto del usuario 1 si no existe el usr
# future =
sub leerArchivo {
        $usr = $_[0];
        $pwd = $_[1];

        while (my $usu = <usuarios>)
                {
                chomp($usu);

                @datos = split (/;/ , $usu);
                $dato{@datos[0]} = "@datos[1]";

                if (&verificar($usr,@datos[0])) {
                        if (&verificar($pwd,@datos[1])) {
                                return 1;
                        }
                        else {
                                return 2;
                        };
                }
        }
        return 0;
       

}
       
# Verifica que los datos sean iguales
# pre = niguno
# post = 1 si son iguales los datos 0 si no son iguales los datos.
# future =
sub verificar {
        my $a = $_[0];
        my $b = $_[1];
        if ($a eq $b) {
                return 1;
        }
        else {
                return 0;      
        }
}

# Guardo nombre de usuario y contraseña en el archivo.
# formato usu;psw;
# pre = el archivo debe estar abierto.
# pos = se guardo en el archivo.
# future = validar si se guardo o no.
sub guardarArchivo{
        print usuarios "$_[0];$_[1];\n";
}

# Ingreso de nuevo usuario y contraseña.
# pre = niguno.
# pos = 1 si se guardo correctamente 0 si no se guardo correctamente
# future =
sub ingresoNuevoUsuario {
        print "-------------------------------\n";
        print "Ingrese nombre de usuario:\n";
        chomp($nombreUsuario = <STDIN>);
        print "-------------------------------\n";
        print "ingrese pass:\n";
        chomp($password = <STDIN>);
        system("clear");
        &abrirArchivoEscritura;
        if (&guardarArchivo($nombreUsuario,$password)) {
                &cerrarArchivo;
                return 1;
        }
        else {
                &cerrarArchivo;
                return 2;
        }
}

# Pide nombre y password y verifica que este en el archivo y que la pass ingresada sea la misma
# pre = niguno
# post = 1 si el usuario se logeo correctamente 2 si el pass es inocrrecto 0 si no existe el usuario.
# future =
sub verificarUsuario {
        print "-------------------------------\n";
        print "Ingrese nombre de usuario:\n";
        chomp($nombreUsuario = <STDIN>);
        print "-------------------------------\n";
        print "ingrese pass:\n";
        chomp($password = <STDIN>);
        system("clear");
        &abrirArchivoLectura;
        $auxvalor = &leerArchivo($nombreUsuario,$password);
        &cerrarArchivo;
        if ($auxvalor == 1) {
                return 1;
        }
        else {
                if ($auxvalor == 2) {
                        return 2;
                }
                else { 
                        return 0;
                }
        }
}

#Inicio del "mail" del programa.
my $aux;

print "Posee cuenta generada? s-n \n";
chomp($aux = <STDIN>);

system("clear");

#Si no posee cuenta en el archivo crea una nueva.
if ($aux eq "n") {
        if (&ingresoNuevoUsuario) {
                print "Usuario Ingresado correctamente.\n";
        }
        else {
                print "El usuario no se pudo ingresar correctamente";
        }
}
#Si posee cuenta en el archivo, lo verifica.
elsif ($aux eq "s") {
        system("clear");
        $auxver = &verificarUsuario;
        if ($auxver == 1) {
                print "ACCESO AUTORIZADO\n";
        }
        else {
                if ($auxver == 2) {
                        print "PASSWORD INCORRECTA\n";
                }
                else {
                        print "Usted no esta en el listado\n";
                }
        }
}
else {
        print "Opcion no valida.\n";
}

$dato{@datos[0]} = "@datos[1]";

$dato{$datos[0]} = "$datos[1]";

$days        # un único valor escalar
$days[28]    # el elemento vigésimo noveno del array @days
$days{'Feb'} # el valor correspondiente a 'Feb' del hash %days
$#days       # el índice del último elemento del array @days