Foro - Perl en Español

Hola gente, estoy haciendo una parte de un programa donde tengo que validar un archivo, que contendrá permisos de base de datos. La lógica de la validación consistirá en:

- Validar que haya una sola sentencia por cada línea y finalice con ";"
(no pueden haber dos sentencias de grants en una misma línea)

- Validar que solo contenga "Grant insert,update,delete,references,execute,select y all" y nada más (no puede haber ningún otro tipo de grant)

- Luego de cumplir con esto se aplicarán los permisos en la base de datos previamente seleccionada.

Estoy armándolo pero no consigo encontrar una función para validar esto.

Hasta ahora tengo armado el esqueleto pero me falta.

Les agradecería mucho si me pueden orientar. ¡¡¡ Muchas gracias !!!

explorer, te paso un ejemplo de archivo de entrada.

Donde quiero validar que sea una sentencia por línea, que diga GRANT, que finalice con ";" y que no haya otro tipo de grant que los mencionados arriba.

GRANT exec on cgsp_pag_entidad_f_SN to general;;grant exec on cgsp_pag_entidad_f_SN to Consulta;
gran exec on cgsp_pag_entidad_f_SN to Consulta;
grant exec on cgsp_pag_entidad_f_SN to Consulta_Sistemas;
grant exec on cgsp_pag_entidad_f_SN to Control_de_Calidad;
grant exec on cgsp_pag_entidad_f_SN to DeudoresGestion;
grant exec on cgsp_pag_entidad_f_SN to GerenteSubgerente;
grant exec on cgsp_pag_entidad_f_SN to RRHH;
grant exec on cgsp_pag_entidad_f_SN to SICC;
grant exec on cgsp_pag_entidad_f_SN to SCOOO;
grant exec on cgsp_pag_entidad_f_SN to Seguros_Seg;
grant exec on cgsp_pag_entidad_f_SN to Supervisor_ARG
grant exec on cgsp_pag_entidad_f_SN to TOCI
grant exec on cgsp_pag_entidad_f_SN to analista_ARG
grant exec on cgsp_pag_entidad_f_SN to general;

GRANT EXECUTE,delete,insert,update ON cgsp_ctontrolrl_temp_sm_na TO general;
GRANT EXECUTE,delete,insert,update ON cgsp_altas_SIMM_automatico TO general;
GRANT EXECUTE,delete,insert,update ON cgsp_ctrl_novedades TO general;

GRANT EXECUTE,delete,insert,update ON cgsp_alta_pagos_SIMM TO general;


Aquí corregí un poco más el programita para que valide que haya grant.

if (-e $archivo){
print "el archivo '$archivo' existe\n";
sleep(2.5);
system "clear";
open(PUNTERO,$archivo);

while ($linea = <PUNTERO>){

$linea=lc $linea;
if ($linea =~/grant/ && $linea=~/;/) {

print "Sentencia Valida\n";

}
else{

print "Sentencia no valida\n";
sleep(4);
exit
}


@data=split /;/ , $linea;





foreach my $val (@data){
print "$val\n";
} #cierre while



#} #cierre if data =="



#@campo=split /;/ , $linea;
#$linea=lc $linea;
#print "$linea";

#($campo)=split /\;+/ , $linea;
#my $campo1=lc $campo;
#my @arch=split /\;+/ , $archivo;
#print "$campo1\n";


}
close(PUNTERO);

¡¡¡ Muchas gracias voy a verlo con más detenimiento en casa !!!
¡¡ Agradecido eternamente !!

Explorer, estoy estudiando cada línea detenidamente y de paso voy aprendiendo expresiones regulares.

Estoy probando en mi trabajo lo siguiente y recibo el error que te describo.

¿Sabes por qué puede ser?

No creo que sea lo del use Modern::Perl, que lo saqué porque no lo encuentra en el Perl que tengo instalado.

Te agradezco.

Código


Mensaje de Error :

Explorer, como siempre muy interesante lo que pones.

Estoy haciendo como decís, pero no logro encontrar el error.
Deje todo como "linea"( sin los tildes), pero sigo obteniendo un error



Por lo que entiendo es como si no tuviese inicializada la variable, pero creo que sí lo está.
Estuve probando pero no logro encontrar el problema.

Aprovecho para preguntarte qué significa la expresión regular siguiente :

Alcanzo a entender que encuentre los que comienzan con "grant".

Por último preguntarte si hay algún libro o guía que vos recomendas como un "must" a leer.

Muchas Gracias