Data :: ErgebnisShelper Perl-Modul hilft, Ergebnisse der Sortier-, Paginat- und Anzeige-Sätze zu sortieren
Jetzt downloaden

Data :: ErgebnisShelper Ranking & Zusammenfassung

Data :: ErgebnisShelper Stichworte

Sortierung Ergebnisse Ergebnisse sortieren paginieren Ergebnisse anzeigen. paginate Ergebnisse.

Data :: ErgebnisShelper Beschreibung

Perl-Modul, um die Sortier-, Paginat- und Anzeigeergebniss sortiert Daten :: resultShelper ist ein Perl-Modul, das geschrieben wird, um Ergebnisse anzuzeigen, die als Anordnung von Arrays angenommen werden können. Beispiele gibt es, und je mehr ich damit arbeite, desto mehr sehe ich Beispiele. Suchergebnisse, Stock-Ticker-Zitate, E-Mail-Nachrichtenzusammenfassungen, eine Verzeichnisliste, SQL-Abfrageergebnisse, das und vieles mehr! Daten :: resultShelper nimmt die Ergebnisse und ändert sie in einen gut organisierten Hash REF, der dann mithilfe von Vorlagen :: Toolkit oder dergleichen ausgegeben werden kann Data :: resultShelper ist allgemein genug, dass Ergebnisse auf verschiedene Arten ausgegeben werden können: Eine CSV-Datei, XML usw. Bitte konsultieren Sie die Daten :: resultShelper :: html perldoc für weitere Informationen. Ich schreibe einfach eine generate_results-Methode, die $ self -> {Ergebnisse} setzt. Wenn $ self -> {set_cookie} stimmt, versuche ich, Ergebnissätze zu sperren. In diesem Fall würden generate_results nur aufgerufen, um neue Ergebnisse zu erzeugen. #! / usr / bin / perl -w Verwenden Sie streng; {mein $ self = helper-> neu ({rattern_dir => '/ tmp / dive',}); Drucken "Inhaltstyp: Text / HTML \ n \ n"; drucken $ selbst-> Ergebnisse2HTML; } Pakethelfer; Verwenden Sie streng; Verwenden Sie Daten: ErgebnisShelper :: HTML; BASE QW verwenden (Data :: ErgebnisShelper :: HTML); subgenerate_resultierungen {mein $ self = schicht; mein $ dir = Schicht || $ selbst -> {ergebnisse_dir}; Meine $ Ergebnisse = ,]; Datei erfordern: Find; FILE :: FINDE :: FIND (SUB {MY $ FULLPATH = $ FILE :: FINDE :: NAME = $ FILE :: FINDE :: NAME; MY $ DIR = $ FILE :: FINDE :: DIR; MY @STAT = STAT $ Fullpath; Return, wenn ($ FullPath = ~ / ^\.\. Retur stat , $ stat ];}, $ dir); $ self -> {Ergebnisse} = $ ergebnisse; } Anforderungen: · Perl.

Data :: ErgebnisShelper Zugehörige Software