#!/usr/bin/perl
#
# So sieht ein echt schlechtes Perl Skript aus :)
#

use strict;

# Inhaltsverzeichnis.txt könnte so aussehen:
# blog#Blog oder nicht Blog?
# pgpkey#Mein PGP Schlüssel
# impressum#Impressum

my $inhalt=`cat Inhaltsverzeichnis.txt`;
my @inhaltarray=split("\n",$inhalt);

# Menü-Baum aufbauen:
my $menue="";
foreach my $site(@inhaltarray)
{
    my ($a,$b)=split("#",$site);
    chomp($b);
    $menue.="$a.html\">$b\n";
}

# Seiten erzeugen:
foreach my $site(@inhaltarray)
{
  # In der Datei design.html ist das Layout.
  # Felder im Format #CONTENT# werden ersetzt durch entsprechenden Inhalt.

  my $txt=`cat design.html`;
  my ($a,$b)=split("#",$site);

  # Der Inhalt selbst ist in einer Textdatei im Verzeichnis "content"

  my $content=`cat content/$a`;
  my $title="$b";

  $txt=~s/#CONTENT#/$content/gis;
  $txt=~s/#TITLE#/$title/gis;
  $txt=~s/#MENUE#/$menue/gis;

  open (FILE,"> /var/www/rapports.de:80/$a.html");
  print FILE $txt;
  close (FILE);
}

Code Formatted by ToGoTutor