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
3376 articles
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äß