Foro - Perl en Español

por **Maris** » 2005-12-19 14:09 @631

Hola:

Soy nueva en Perl y necesito validar el password de una aplicación con el siguiente formato; el password debe contener por lo menos una letra en mayúscula, una en minúscula y un número; además de tener un máximo de ocho caracteres. Tengo problemas en validar lo del formato; ¿Alguien podría ayudarme?. ¡Gracias!

#!/usr/bin/perl
 
my $password = '';
 
while ( $password eq '' ) {
 
    # Leemos el password desde el teclado
    print "Introduce el nuevo password: ";
    $password = <STDIN>;
 
    #  el password debe contener por lo menos una letra en mayúscula,
    unless ( $password =~ /[A-Z]/ ) {
            print "El password debe tener al menos una letra en mayúscula!\n\n";
            $password = '';
            redo;
    }
 
    # una en minúscula
    unless ( $password =~ /[a-z]/ ) {
            print "El password debe tener al menos una letra en minúscula!\n\n";
            $password = '';
            redo;
    }
 
    #  y un número;
    unless ( $password =~ /[0-9]/ ) {
            print "El password debe tener al menos un número!\n\n";
            $password = '';
            redo;
    }
 
    # además de tener un máximo de ocho caracteres
    if ( length($password) > 8 ) {
            print "El password debe tener menos de 9 caracteres!\n\n";
            $password = '';
            redo;
    }
}
 
print "El password es : $password\n";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $password = '';
while ( $password eq '' ) {
 
  # Leemos el password desde el teclado
  print "Introduce el nuevo password: ";
  $password = <STDIN>;
 
  # Comprobamos si nos vale
  if ( $password !~ /[A-Z]/ or $password !~ /[a-z]/ or $password !~ /[0-9]/ ) {
    print "El password debe tener al menos una letra en mayúscula, minúscula y un número!\n\n";
    $password = '';
    redo;
  }
  # Comprobamos la longitud
  if ( length($password) > 8 ) {
    print "El password debe tener menos de 9 caracteres!\n\n";
    $password = '';
    redo;
  }
}
 
print "El password es : $password\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $password;
do {
 
  print "Introduce el nuevo password: ";
  $password = <STDIN>;
 
  if ( length($password) > 8 ) {
    print "El password debe tener menos de 9 caracteres!\n\n";
    $password = '';
  }
  elsif ( $password !~ /[A-Z]/ or $password !~ /[a-z]/ or $password !~ /[0-9]/ ) {
    print "El password debe tener al menos una letra en mayúscula, minúscula y un número!\n\n";
    $password = '';
  }
 
} while ( $password eq '' );
 
print "El password es : $password\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Maris** » 2005-12-19 15:09 @673

¡¡¡Gracias!!! ¡Funcionó todo bien!. ¡¡Gracias por la ayuda!! =O)

Foro - Perl en Español

Validar Password

Validar Password

Publicidad

Re: Validar Password

Validar Password

¿Quién está conectado?