Foro - Perl en Español

por **explorer** » 2013-07-07 10:37 @484

Te recuerdo que no es necesario el sigilo '&' delante de los nombres de función.

Con lo que cuentas, valdría transformar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

admin_database($validate_user);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

en

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

database('admin', $validate_user);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y de veintidós funciones pasamos a solo una.

database("/admins/","$validate_user");
 
sub database
{
  my ($dir,$user) = shift,shift;
  my $FILE_HANDLE = "system/database";
  $FILE_HANDLE .= $dir;
  $FILE_HANDLE .= $user;
  if (-e $FILE_HANDLE)
  {
        return 1;
  } else {
     return 0;
  }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

?

¿Eso es?

por **explorer** » 2013-07-07 12:17 @554

Bueno, sí, pero hay mucho pelo que puedes quitar...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (database('admins', $validate_user)) {     # no es necesario las comillas dobles para rodear una sola variable
    ...;                                      # procesamos la base de datos
}
 
sub database {
  my ($dir,$user) = @_;                       # la var. @_ almacena todos los argumentos
 
  return -e "system/database/$dir/$user";     # return devuelve verdadero si existe ese archivo. Si no, falso
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Base de datos en texto

Re: Base de datos en texto

Publicidad

Re: Base de datos en texto

Re: Base de datos en texto

¿Quién está conectado?