Вопросы Теги

Шаблонная обработка HTML CL-WHO-like для других языков?

Вам нужно Pojo следующей спецификации. 

class Event {

  private String value;
  private List<String> synonyms;
}

Затем вы составляете список этого класса, и он будет правильно анализировать ваш Json. 

List<Event> events = new ArrayList<>();
11
задан Nikolai Prokoschenko 22 March 2009 в 20:31
поделиться

8 ответов

Поскольку предложения CPAN взглянули на следующее (в алфавитном порядке)...

Используя часть таблицы CL - КТО обеспеченный пример (минус Римские цифры и s/background-color/color/для сжатия кода в экран width здесь!)....


Разработчик

use Builder;
my $builder = Builder->new;
my $h = $builder->block( 'Builder::XML' );

$h->table( { border => 0, cellpadding => 4 }, sub {
   for ( my $i = 1; $i < 25; $i += 5 ) {
       $h->tr( { align => 'right' }, sub {
           for my $j (0..4) {
               $h->td( { color => $j % 2 ? 'pink' : 'green' }, $i + $j );
           }
       });
   } 
});

say $builder->render;


HTML:: AsSubs

use HTML::AsSubs;

my $td = sub {
    my $i = shift;
    return map { 
        td( { color => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say table( { border => 0, cellpadding => 4 },
    map { 
        &tr( { align => 'right' }, $td->( $_ ) ) 
    } loop( below => 25, by => 5 )
)->as_HTML;


HTML:: Крошечный

use HTML::Tiny;
my $h = HTML::Tiny->new;

my $td = sub {
    my $i = shift;
    return map { 
        $h->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say $h->table(
    { border => 0, cellpadding => 4 },
    [
        map { 
            $h->tr( { align => 'right' }, [ $td->( $_ ) ] )  
        } loop( below => 25, by => 5 )    
    ]
);


Markapl

use Markapl;

template 'MyTable' => sub {
    table ( border => 0, cellpadding => 4 ) {
       for ( my $i = 1; $i < 25; $i += 5 ) {
           row ( align => 'right' ) {
               for my $j ( 0.. 4 ) {
                   td ( color => $j % 2 ? 'pink' : 'green' ) { $i + $j }
               }
           }
       } 
    }
};

print main->render( 'MyTable' );


Шаблон:: Объявить

package MyTemplates;
use Template::Declare::Tags;
use base 'Template::Declare';

template 'MyTable' => sub {
    table {
        attr { border => 0, cellpadding => 4 };
        for ( my $i = 1; $i < 25; $i += 5 ) {
            row  {
                attr { align => 'right' };
                    for my $j ( 0..4 ) {
                        cell {
                            attr { color => $j % 2 ? 'pink' : 'green' } 
                            outs $i + $j;
                        }
                    }
            }
        } 
    }
};

package main;
use Template::Declare;
Template::Declare->init( roots => ['MyTemplates'] );
print Template::Declare->show( 'MyTable' );


XML:: Генератор

use XML::Generator;
my $x = XML::Generator->new( pretty => 2 );

my $td = sub {
    my $i = shift;
    return map { 
        $x->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ )
    } 0..4;
};

say $x->table(
    { border => 0, cellpadding => 4 },
    map { 
        $x->tr( { align => 'right' }, $td->( $_ ) )  
    } loop( below => 25, by => 5 )    
);


И следующее может использоваться для создания "цикла" в HTML:: AsSubs / HTML:: Крошечный / XML:: примеры Генератора....

sub loop {
    my ( %p ) = @_;
    my @list;

    for ( my $i = $p{start} || 1; $i < $p{below}; $i += $p{by} ) {
        push @list, $i;
    }

    return @list;
}
12
ответ дан 3 December 2019 в 01:53
поделиться

Модуль CGI Perl имеет поддержку чего-то вроде этого.

use CGI ':standard';
use Lisp::Fmt 

print header();

print table( { -border => 1, -cellpading => 4},
    loop({ below => 25, by=> 5}, sub {
        my $i = shift;
        tr( {-align => 'right'} ,
            loop({ from => $i, below $i + 5}, sub {
                my $j = shift;
                td({-bgcolor => ($oddp eq $j ? 'pink' : 'green')}
                    fmt("~@R", 1+$j);
            })
        )
    });

Я пытался сохранить это lispy, таким образом, необходимо будет реализовать lispy loop функция самостоятельно. Я действительно не программирую Общий Список, таким образом, я надеюсь, что понял Ваш код правильно.

5
ответ дан 3 December 2019 в 01:53
поделиться

Один из текущих спонсируемых предоставлением проектов Основы Perl (легкая веб-платформа для Perl 6) имеет работу код Perl6, который обеспечивает подобный интерфейс:

use Tags;
say show {
    html {
        head { title { 'Tags Demo' } }
        body {
            outs "hi";
            ul :id<numberlist> {
                outs "A list from one to ten:";
                for 1..10 {
                    li :class<number>, { $_ }
                }
            }
        }
    }
}

Просмотрите или клонируйте текущий код GitHub.

6
ответ дан 3 December 2019 в 01:53
поделиться

Существует stan: s-expression-like синтаксис для выражения xml в чистом Python, от Nevow Divmod. Я думаю, что это отчасти, что Вы хотите. Пример из связанного учебного руководства:

t = T.table[
           T.tr[
               T.td[ "Name:" ],
               T.td[ original.name ]
           ],
           T.tr[
               T.td[ "Email:" ],
               T.td[T.a(href='mailto:%s' % original.email)[ original.email ] ]
           ],
           T.tr[
               T.td[ "Password:" ],
               T.td[ "******" ]
           ],
       ]
4
ответ дан 3 December 2019 в 01:53
поделиться

Стандартный модуль CGI Perl может сделать что-то подобное:

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;

print 
    start_html("An example"),
    h1(
        {
            -align => "left",
            -class => "headerinfo",
        },
        'this is an example'
    ),
    "The CGI module has functions that add HTML:",
    ul( map li($_),
        ("start_html",
        "h1, h2, h3, etc.",
        "ol, ul, li",
        "ol, ul, li",
        "table, tr, th, td")
    ),
    "and many more.",
    end_html();

Это производит:

<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>An example</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<h1 class="headerinfo" align="left">this is an example</h1>The CGI module has functions that add HTML:<ul><li>start_html</li> <li>h1, h2, h3, etc.</li> <li>ol, ul, li</li> <li>ol, ul, li</li> <li>table, tr, th, td</li></ul>and many more.
</body>
</html>

Раздел лития мог быть переписан как это

print ol(map li($_), @list);

если у Вас были список или массив.

3
ответ дан 3 December 2019 в 01:53
поделиться

Clojure

Существует набор генерирующих HTML библиотек CL-WHO-inspired, доступных в Clojure (как можно было бы ожидать, при этом Clojure был бы Lisp). Вот то, как Вы могли сделать это пользующийся библиотекой HTML, которая идет с Compojure и форматом статьи:

(use 'compojure.html
     'com.infolace.format)

(html
 [:table {:border 0 :cellpadding 4}
  (map (fn [tds] [:tr {:align "right"} tds])
       (partition 5 (map (fn [num color]
                           [:td {:bgcolor color}
                            (cl-format nil "~@R" (inc num))])
                         (range 25)
                         (cycle ["green" "pink"]))))])

Библиотека HTML Compojure хорошо использует литеральные карты хеша Clojure как пары атрибут/значение, и использование литеральных векторов для тегов вместо списков для всего помогает тегам выделиться немного и избегает части потребности в макро-волшебстве.

partition разбивает набор в группы некоторого числа элементов. cycle генерирует бесконечно повторяющийся список элементов набора. Они плюс range и map справка Вы избегаете явных циклов и переменных счетчика.

3
ответ дан 3 December 2019 в 01:53
поделиться

Вот такая вещь для JavaScript. Это похоже на следующее:

T.div({ className: "content"},
      T.p("Some ", T.u("paragraph")),
      T.p("Another paragraph"))
1
ответ дан 3 December 2019 в 01:53
поделиться

Haskell

В Haskell есть библиотека комбинаторов HTML, которая не так уж сильно отличается от CL-WHO. Ленивый функциональный подход к программированию, однако, приводит к идиоматической структуре итераций, значительно отличающейся от средств циклов в Common Lisp:

import Data.Char
import Data.List
import Text.Html
-- from http://fawcett.blogspot.com/2007/08/roman-numerals-in-haskell.html
import RomanNumerals

-- Simple roman numeral conversion; returns "" if it cannot convert.
rom :: Int -> String
rom r = let m = toRoman r
        in (map toUpper . maybe "" id) m

-- Group a list N elements at a time.
-- groupN 2 [1,2,3,4,5] == [[1,2],[3,4],[5]]
groupN n [] = []
groupN n xs = let (a, b) = splitAt n xs in a : (groupN n b)

pink = "pink" -- for convenience below; green is already covered by Text.Html

rom_table = table ! [border 0, cellpadding 4] << trs
    where
      -- a list of <tr> entries
      trs = map (rom_tr . map rom_td) rom_array

      -- generates a <tr> from a list of <td>s
      rom_tr tds = tr ! [align "right"] << tds

      -- generates a <td> given a numeral and a color
      rom_td (r, c) = td ! [bgcolor c] << r

      -- our 5 x 5 array (list x list) of numerals and colors
      rom_array = (groupN 5 . take 25) rom_colors

      -- a theoretically infinite list of pairs of roman numerals and colors
      -- (practically, though, the roman numeral library has limits!)
      rom_colors = zip (map rom [1..]) colors

      -- an infinite list of alternating green and pink colors
      colors = cycle [green, pink]

main = let s = prettyHtml rom_table 
       in putStrLn s

Я должен отметить, что в Text.Html также есть небольшая библиотека комбинаторов для составления таблиц с использованием операторов "над" и "рядом" для вычисления расстояния между строками и столбцами, но она немного слишком упрощена в плане применения атрибутов, чтобы точно повторить этот пример, и нам не нужно причудливое разделение строк и столбцов.

1
ответ дан 3 December 2019 в 01:53
поделиться
Другие вопросы по тегам:

Похожие вопросы: