HTML Seite generieren - #53304 (Allgemeines zu Perl)

renee

2005-04-14 12:46

User since
2003-08-04
14371 Artikel
ModeratorIn

Nein,

Template:

Code: (dl )

<html>
<body>
<h1>Fehlermeldungen</h1>
  <table>
<!-- TMPL_LOOP NAME=ERRORS -->
    <tr>
      <td>
         <!-- TMPL_VAR NAME=CATEGORY -->
      </td>
      <td>
        <!-- TMPL_VAR NAME=NUMBER -->
     </td>
    </tr>
<!-- /TMPL_LOOP -->
  </table>
</body>
</html>

Skript:

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;
use HTML::Template;

my $tmpl_file = '/path/to/template.tmpl';
my $template = HTML::Template->new(filename => $tmpl_file);

my %errors = (klein => 5, mittel => 10, groß => 1);

my @array;
foreach my $key(keys(%errors)){
  push(@array,{CATEGORY => $key, NUMBER => $errors{$key}});
}

$template->param(ERRORS => \@array);

my $target = '/path/to/ziel.html';

open(my $fh,">$target") or die $!;
print $fh $template->output();
close $fh;

Und so kannst Du immer wieder Dein Template benutzen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/