DATOS :: ResultShelper Módulo PERL para ayudar a ordenar, paginar y mostrar los conjuntos de resultados
Descargar ahora

DATOS :: ResultShelper Clasificación y resumen

DATOS :: ResultShelper Etiquetas

clasificación resultado Ordenar los resultados paginar Resultados de visualización Resultados pagados

DATOS :: ResultShelper Descripción

Módulo Perl para ayudar a ordenar, paginar y mostrar los conjuntos de resultados DATOS :: ResultShelper es un módulo Perl escrito para ayudar a mostrar los resultados que se pueden considerar como una matriz de matrizs.Developer Commenti Llame a los resultados de la estructura. Abundan los ejemplos, y más trabajo con él, más veo ejemplos. Resultados de la búsqueda, bodas de valores de valores, resúmenes de mensajes de correo electrónico, un listado de directorios, resultados de consulta SQL, ¡y mucho más! DATOS :: ResultShelper toma los resultados y los cambia a una refresca de hash muy bien organizada, que luego se puede emitir utilizando la plantilla :: Toolkit o AMSI.Example en el siguiente ejemplo, subclase los datos :: ResultShelper :: HTML. DATOS :: ResultShelper es lo suficientemente general de que los resultados puedan ser emitidos en cualquier número de formas: un archivo CSV, XML, etc. Consulte los datos :: ResultShelper :: HTML PERLDOC para obtener más información. Simplemente escribo un método generado_results que establece $ auto -> {resultados}. Si $ auto-> {set_cookie} es verdadero, intento cachear los conjuntos de resultados. En ese caso, solo se llamará a Generar_Results para generar nuevos resultados. #! / usr / bin / perl -w usa estricto; {My $ Self = Helper-> Nuevo ({resultados_dir => '/ tmp / stuff',}); Imprimir "Tipo de contenido: Texto / HTML \ N \ N"; Imprimir $ auto-> resultados2html; } ayudante de paquete; usar estricto; Usa datos :: ResultShelper :: HTML; Use Base QW (DATOS :: ResultShelper :: HTML); Sub Generate_Results {My $ Self = Shift; My $ dir = Shift || $ yo -> {resultados_dir}; My $ ResultS = ,]; Requerir archivo :: encontrar; Archivo :: Buscar :: Buscar (Sub {My Fullpath = $ File :: Buscar :: Nombre = $ File :: Buscar :: Nombre; My $ DIR = $ File :: Find :: Dir; My @stat = stat $ fullpath; devuelve si ($ fullpath = ~ /^\.\.?$/); devolver si (-d _); PUSH @ {$ Resultados}, , $ stat ];}, $ DIR); $ yo -> {resultados} = $ resultados; } Requisitos: · Perl

DATOS :: ResultShelper Software relacionado