use HTML::Template::Compiled; # erhält Daten des Hashes my $hash; { # Einlesemodus auf Einlesen in einem Rutsch local $/ = undef; open (my $fh, '<', 'meinedaten.dat') or die "Datei konnte nicht geöffnet werden: $!"; # Zeichenkette einlesen $hash = <$fh>; # Variablenbezeichnung des gedumpten Hashstrings auf $hash setzen $hash =~ s|VAR1|hash|; # Datei schließen close($fh) or die "Datei konnte nicht geschlossen werden: $!"; } # Code in $hash ausführen eval("$hash") or die 'Hash $hash konnte nicht ausgewertet werden'; # das ist das HTML-Template für Ausgabe my $template = <<'HTML';
Datum | Wert | <%each data%>
<%= __key__ %> | <%= __value__ %> |