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 !!!

Estaría bien ver un fichero de entrada de ejemplo, unas cuantas líneas, para ver cómo es lo que quieres procesar.

Parece un trabajo perfecto para usar expresiones regulares.

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

Esta es mi versión. Dado el fichero de entrada
y con el siguiente programa:sale

¡¡¡ 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 :

Gracias al uso de

use utf8;

se pueden escribir programas con caracteres con tilde.

Por ejemplo:

my $línea;

Observa que la variable lleva tilde, porque, en efecto, las líneas llevan tilde.

Y lo que pasa en tu programa es muy curioso...

En el while(), en el if() y en la primera expresión regular, estás usando la variable $linea.

En cambio, en la línea del error, estás usando $línea (que es una variable distinta de $linea), pero, aún más para liar la madeja, resulta que esa 'i' con tilde no es un carácter en utf8, sino en iso-8859 (quizás, iso-8859-1 o iso-8859-15).

Por eso sale error: no te dice que estás usando una variable que Perl desconoce y que es distinta de las anteriores (no te lo dice porque, al quitar Modern::Perl, desactivaste 'use strict;'), sino que te está diciendo que ha encontrado una variable que tiene un carácter tildado, pero no es un carácter del juego de caracteres utf8, del que te comprometiste en escribir el programa (por lo del 'use utf8').

Solución...

1.- si no vas a usar variables con codificación utf8, quita el 'use utf8'

2.- asegúrate de que todas las variables son las que quieres usar. Entonces, en la línea del error, cambia $línea por $linea.

3.- Consejo. Para que Perl te ayude a identificar estos errores, con más claridad, mientras aprendes, lo que puedes hacer es colocar las siguientes líneas al principio de cada programa:

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

El primer error está en la línea

if ( $linea = /^grant/i )

cámbialo por

if ( $linea =~ /^grant/i )

La expresión /^grant (.+?) on/i; quiere decir:

• busca si la línea comienza por "grant ",
• seguido de un conjunto de uno o más caracteres (.+) que preceden inmediatamente (?)
• a la cadena " on",
• y los capturas (()) en $1
• ¡Ah!, y la búsqueda debe ser independientemente del tamaño de caja de las letras (/i)

Vamos, que nos quedamos (capturamos) todo aquello que está entre 'grant' y el primer 'on' que encontremos.

En cuanto a libros, mira aquí. Pero lo mejor es Por dónde empezar.