Thread Perl für Weboberflächen noch zeitgemäß (35 answers)
Opened by peterstu at 2018-03-11 08:29

rosti
 2018-03-12 16:32
#188135 #188135
User since
2011-03-19
3513 Artikel
BenutzerIn
[Homepage]
user image
Hier ein schönes Beispiel: http://rolfrost.de/shortstat.html

Die DB-Abfrage sieht so aus:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

    my $dbh = $self->dbh('webdaten') or die $@;
    my $q = q(
        SELECT url, count(url) as cnt FROM log group by url order by cnt desc limit 30
    );
    my $slice = $dbh->selectall_arrayref($q, { Slice => {}});

    if($self->param('load')){
        my $j = JSON->new;
        $self->{CONTENT}  = $j->encode($slice);
    }


Wird also als JSON in einer Datenstruktur übertragen welche die JS Templating Engine zu einer HTML Tabelle macht. Das Template sieht so aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<script id="templ" type="text/plain">
<table class="grid">
    <thead>
      <tr>
        <th>URL</th>
        <th>Aufrufe</th>
      </tr>
    </thead>
    <tbody>
    @loop_stats@
        <tr>
            <td>@url@</td>
            <td>@cnt@</td>
        </tr>
    @endloop@
    </tbody>
</table>
</script>


und ist vom Aufbau her dasselbe wie ein Template für HTML::Template nur der Syntax ist ein bischen anders.

In Layern denken ;)


.
Last edited: 2018-03-12 16:33:32 +0100 (CET)

View full thread Perl für Weboberflächen noch zeitgemäß