HTML Seite generieren - #53301 (Allgemeines zu Perl)

renee

2005-04-14 11:57

User since
2003-08-04
14371 Artikel
ModeratorIn

dann musst du den html-code einfach ausgeben:

Code: (dl )

sub ausgabe{
  print qq~<html>
  <body>
    <h1>Fehlermeldungen</h1>
  ~;
  for my $key(keys(%errors)){
    print '<b>'.$_.'</b> '.$errors{$_};
  }
  print qq~</body>
  </html>~;
}

oder in eine Datei:

Code: (dl )

sub ausgabe{
  open(my $fh,">ziel.html") or die $!;
  print $fh qq~<html>
  <body>
    <h1>Fehlermeldungen</h1>
  ~;
  for my $key(keys(%errors)){
    print $fh '<b>'.$_.'</b> '.$errors{$_};
  }
  print $fh qq~</body>
  </html>~;
  close $fh;
}

Normalerweise trennt man aber Logik von Design und benutzt deswegen Templates. Die eignen sich auch schon für kleinere Sachen, auch damit das Programm übersichtlich bleibt...

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/