Dati :: risultatiShelper. Modulo Perl per aiutare a ordinare, paginare e visualizzare i set di risultati
Scarica ora

Dati :: risultatiShelper. Classifica e riepilogo

Dati :: risultatiShelper. Tag

ordinamento risultati risultati di ordinamento paginate Visualizza risultati risultati impaginare

Dati :: risultatiShelper. Descrizione

Modulo perl per aiutare a ordinare, paginare e visualizzare i set di risultati DATA :: ResidentiShelper è un modulo perl scritto per aiutare a visualizzare i risultati che possono essere pensati come una serie di arrays.Developer Commenti Chiama i risultati della struttura. Esempi abbondano e più lavoriamo, più vedo esempi. Risultati della ricerca, quotazioni Ticker Stock, riepiloghi dei messaggi di posta elettronica, un elenco di directory, i risultati della query SQL, questo e molto altro ancora! DATA :: Resultshelper prende i risultati e li modifica in un Hash Ref ben organizzato, che può quindi essere emesso utilizzando Template :: Toolkit o simili. Esempio nel seguente esempio, I Sub-Class I dati :: risultatiShelper :: HTML. DATA :: Resignshelper è abbastanza generale che i risultati potrebbero essere emessiti in qualsiasi numero di modi: un file CSV, XML, ecc. Si prega di consultare i dati :: ResidentiShelper :: HTML Perldoc per ulteriori informazioni. Scrivo semplicemente un metodo Generate_results che imposta $ auto-> {risultati}. Se $ Self -> {set_Cookie} è vero, tento di cache dei set di risultati. In tal caso, Generate_results sarebbero stati chiamati solo per generare risultati freschi. #! / usr / bin / perl -w usare rigoroso; {My $ self = helper-> nuovo ({resists_dir => '/ tmp / roba',}); Stampa "Tipo di contenuto: testo / html \ n \ n"; Stampa $ self-> Risultati2html; } Helper del pacchetto; usare rigoroso; Utilizzare i dati :: risultatiShelper :: HTML; Usa Base QW (Dati :: risultatiShelper :: HTML); sub Generate_results {My $ self = shift; My $ DIR = Shift || $ Self -> {Residents_dir}; My $ Risultati = ,]; Richiedere il file :: trovare; File :: Trova :: Trova (sub {My $ fullpath = $ file :: Trova :: name = $ file :: Trova :: nome; My $ DIR = $ file :: Trova :: dir; my @stat = stat $ fullpath; ritorno se ($ fullpath = ~ / x\.\.?$ /); ritorno se (-d _); push @ {$ risultati}, , $ stat ];}, $ dir); $ auto -> {risultati} = $ risultati; } Requisiti: · Perl.

Dati :: risultatiShelper. Software correlato