CGI :: Búsqueda forma sencilla de usar un CGI para buscar archivos de base de datos de texto plano
Descargar ahora

CGI :: Búsqueda Clasificación y resumen

CGI :: Búsqueda Etiquetas

búsqueda base de datos Módulo perl base de datos en texto plano texto plano

CGI :: Búsqueda Descripción

Forma sencilla de usar un CGI para buscar archivos de base de datos de texto plano Muchos CGIS simplemente buscan bases de datos de texto plano y devuelven los resultados al navegador. CGI :: La búsqueda implementa una interfaz genérica para buscar dichas bases de datos y devolver un objeto HTML :: Plantilla listo para ser presentado en el navegador. Devolver los datos como un hash de matrices también es posible, aunque probablemente se usará menos en la práctica. En la práctica del usuario y la base de datos se verifica fácilmente, lo que hace que sea fácil de escribir código seguro y más robusto. Objeto ordeñado El purista observará que se están juntando dos conceptos ortogonales (validación de entrada de búsqueda y búsqueda). En este caso, he rechazado el enfoque purista porque la unión de estos dos juntos hará que sea tan fácil de hacer validación de que no hay excusa para no hacerlo. Si los puristas quieren usar un módulo diferente (y probablemente escriba el doble de código loble), eso está bien con ME.SYNOPSIS Use CGI :: Búsqueda QW (: Validadores); Use CGI QW (: estándar); My $ tmpl_file = '/ ruta / a / to plantilla'; My $ db_file = '/ ruta / a / flat_file'; My $ db_seperator = '\ |'; # Asegúrese de escapar de cualquier caracter regeo especial y poner en una sola cotización # Este no es un buen validador. No hagas esto My $ custom_validator = sub {if ($ _ = ~ /\a(.*)\z/) {return (1, $ 1, "pasó"); } else {retorno (0, UNDEF, "$ _ no es válido"); }}; # Campos de base de datos Descripción My @db_fields = (, , , , ,); # Opciones de paginación. Todos se verfiegan automáticamente como un entero My $ ResultS_Per_Page = Param ('Resultados_per_Page') || 0; My $ max_results = 0; # Infinate mi $ Página_NUMBER = param ('Página') || 0; # Opciones de búsqueda My% Search = (NUM1 => , correo electrónico => ,); # Otros campos. Estos se pasan a su script cuando ocurre la paginación, # pero no está involucrado en la búsqueda de mi% OTROS = (param1 => param ('param1') || 0, param2 => param ('param2') || 0,) ; My $ Search = CGI :: Búsqueda-> Nuevo (script_name => $ env {script_name}, plantilla => $ tmpl_file, db_file => $ db_file, db_seperator => $ db_seperator, db_fields => \ @db_fields, resultados_per_page => $ Resultados_per_page, max_results => $ max_results, page_number => $ page_number, búsqueda_fields => \% Search, Other => \% Otro,); # Lista de contexto - devolución de la matriz de hashes mi @Data = $ Search-> Resultados (1) o DIE "ERROR:". $ Search-> ERRSTR (); # Contexto escalar - devolución html :: plantilla objeto My $ tmpl = $ búsqueda-> resultado (1) o die "Error:". $ Search-> ERRSTR (); my% new_search = (num1 => , correo electrónico => ,); # Ejecutar una búsqueda con diferentes parámetros My $ new_tmpl = $ búsqueda-> resultado (1, \% new_search); Requisitos: · Perl

CGI :: Búsqueda Software relacionado