Perl Beispiel Webanwendung

[pl]

moin,

Das möchte ich aber meinen. Und als Sysadmin tut man gut daran, auch PERL zumindest lesen zu können. Wobei das Lesen von Perl schwerer ist, als das schreiben.

Nachgefragt:

sub init{
    my $self = shift;
    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
    );
    $self->{STASH}{slice} = $dbh->selectall_arrayref($q, { Slice => {}});

    if( $self->param() ){
        my $j = JSON->new;
        return $self->{CONTENT}  = $j->encode($self->{STASH}{slice});
    }
}
################################################
__DATA__
<!-- ~~~~~~~~~ HTML Template ~~~~~~~~~~~~~~~ -->
<table class="grid">
    <thead>
      <tr>
        <th>URL</th>
        <th>Aufrufe</th>
      </tr>
    </thead>
    <tbody>
    %loop_slice%
        <tr>
            <td>%url%</td>
            <td>%cnt%</td>
        </tr>
    %endloop%
    </tbody>
</table>

Der Code liefert eine Datenstruktur die sowohl mit JS verarbeitet als auch direkt in eine HTML Tabelle gerendert werden kann. Und ist sauber vom Layout getrennt. Weitere Spalten sind bei Bedarf im Handumdrehen hinzugefügt.

Was ist daran schwer lesbar?

MfG