Foro - Perl en Español

Hola, una novata más en el mundo Perl.

Tengo un archivo y debo validar que no contenga X palabras.

Si las contiene debe salir con un error; en caso contrario el proceso se valida como correcto.

Hasta ahora logro leer una cadena, pero para validar varias no sé cómo hacerlo.

Lo que hago:
- Leo el archivo línea a línea
- Valido que no contenga GRANT
- Sale

Pero necesito que además valide un: SELECT *; DROP...

Muchas gracias por la ayuda.

Bienvenida a los foros de Perl en Español, Leyla.

Yo lo que suelo hacer es meter todas las palabras en una expresión regular con alternativas, es decir:

my $palabras_no_validas = qr/GRANT/SELECT|DROP|UPDATE/;

Así puedo hacer una sola búsqueda en el texto, por esas palabras, y si hay al menos una, sé que no puedo dar paso al texto.

Si nos das más información te podremos echar una mano.