#*****************************************************************#
  # CMS:                                                            #
  # Templates bearbeiten                                            #
  #*****************************************************************#
  

  ########## HTML-Bereich ##########

  <!--%%CONTENT_hallo_START%%-->
  hallo welt
  blabla bla
  blablabla
  <!--%%CONTENT_hallo_ENDE%%-->

  <!--%%CONTENT_aktuell_START%%-->
  Alles ist neu
  blabla bla
  <!--%%CONTENT_aktuell_ENDE%%-->
  


  ########### Perl-Bereich 1 ##########

  # Seite lesen
  open(FILE, '</home/www/html/beispiel.html);
  while (<FILE>) { $content .= $_;}
  close(FILE);

  # Editierbare Textblöcke ausschneiden
  $neucontent = $content;
  while ($neucontent =~ s/<!--\%\%CONTENT_(.*?)_START\%\%-->(.*?)<!--\%\%CONTENT_(.*?)_ENDE\%\%-->//is) 
  { 
    $FELD{$1} = $2; 
  }


  # Eingabefeld anzeigen
  foreach $wert(keys(%FELD)) 
  {
    $FELD{$wert} =~ s/[\n\t\r\f]*//g;
    $FELD{$wert} =~ s/<br>/\n/ig;
    $EINGABE  = '<textarea col="5" rows="10" name="'.$wert.'">'.$FELD{$wert}.'</textarea>';
    $content =~ s/<!--\%\%CONTENT_($wert)_START\%\%-->(.*?)<!--\%\%CONTENT_($wert)_ENDE\%\%-->/$EINGABE/is
  }

  ########### Perl-Bereich 2 ##########

  # Seite speichern
  
  open(FILE, '</home/www/html/beispiel.html);
  while (<FILE>) { $content .= $_;}
  close(FILE);

  # Editierbare Textblöcke ausschneiden
  $neucontent = $content;
  while ($neucontent =~ s/<!--\%\%CONTENT_(.*?)_START\%\%-->(.*?)<!--\%\%CONTENT_(.*?)_ENDE\%\%-->//is) 
  { 
    $FELD{$1} = $2; 
  }

  foreach $wert(keys(%FELD))
  {
    $text = $cgi->param($wert);
    $text =~ s/\n/<br>/ig;
    if ($text eq '') {$text = "\n";}
    $content =~ s/<!--\%\%CONTENT_($wert)_START\%\%-->(.*?)<!--\%\%CONTENT_($wert)_ENDE\%\%-->/<!--\%\%CONTENT_$1_START\%\%-->$text<!--\%\%CONTENT_$1_ENDE\%\%-->/is;
  }

  open(FILE, '>/home/www/html/beispiel.html);
  print FILE $tempcontent;
  close(FILE);



  #*****************************************************************#
  # Literaturhinweis                                                #
  #*****************************************************************#  
 

Perl for Web Site Management By John Callender O'Reilly 2001