Dados :: ResultsHelper. Módulo Perl para ajudar a classificar, paginar e exibir conjuntos de resultados
Baixe Agora

Dados :: ResultsHelper. Classificação e resumo

Dados :: ResultsHelper. Tag

Ordenação resultados Ordenar resultados paginar exibir resultados resultados paginar

Dados :: ResultsHelper. Descrição

Módulo Perl para ajudar a classificar, paginar e exibir conjuntos de resultados Dados :: ResultsHelper é um módulo Perl escrito para ajudar a exibir resultados que podem ser considerados como uma matriz de matrizes.developer Comentsi Ligue para os resultados da estrutura. Exemplos são abundantes, e quanto mais eu trabalho com isso, mais eu vejo exemplos. Resultados da pesquisa, cotações de ticker, resumos de mensagens de e-mail, listagem de diretórios, resultados de consulta SQL, isto e muito mais! Dados :: ResultsHelper Execute os resultados e os muda em um refeitório de hash bem organizado, que pode então ser enviado usando o modelo :: Toolkit ou o like.example no exemplo abaixo, eu sub-classgem os dados :: resultshelper :: HTML. Dados :: ResultsHelper é geral suficiente que os resultados possam ser emitidos de qualquer maneira: um arquivo CSV, XML, etc. Por favor, consulte os dados :: resultshelper :: HTML PerlDoc para mais informações. Eu simplesmente escrevo um método Generate_Results que define $ auto -> {resultados}. Se $ auto -> {set_cookie} é verdadeiro, eu tento cache conjuntos de resultados. Nesse caso, generate_results só seria chamado para gerar resultados frescos. #! / usr / bin / perl -w use rigoroso; {My $ self = helper-> new ({resultados_dir => '/ tmp / coisas',}); Imprimir "Tipo de conteúdo: Texto / HTML \ N \ N"; Imprimir $ auto-> resultados2html; } Ajudante de pacotes; Use rigoroso; Use dados :: ResultsHelper :: HTML; Use Base QW (Data :: ResultsHelper :: HTML); Sub Generate_Results {My $ self = Shift; meu $ dir = shift || $ auto -> {resultados_dir}; Meus $ Resultados = ,]; requer arquivo :: Encontre; Arquivo :: Localizar :: Find (sub {My $ FullPath = $ File :: Localizar :: Nome = $ File :: Find :: Nome; meu $ dir = $ File :: encontrar :: dir; my @stat = stat $ FullPath; retorne se ($ fullpath = ~ /^ \ \. \.?$/); retorno if (-d _); push @ {$ resultados}, , $ stat ];}, $ dir); $ auto -> {resultados} = $ Resultados; } Requisitos: · Perl.

Dados :: ResultsHelper. Software Relacionado