#!/usr/bin/perl -w
use CGI qw/:standard/;
use strict;
use warnings;
use CGI;
print header;
print start_html(-title=>"Test",-style=>{-src=>"site.css"});
print "\n";
print "\n";
use XML::Simple; # XML ganz einfach
use Data::Dumper; # Daten visualisieren
use Slurp; # Slurpt ganze Dateien in Variablen
open ( DUMP , "> out.dump" ); # Öffnet Ausgabedatei für Data::Dumper
my $xml = slurp( "in.xml" ); # XML aus der Datei in String einlesen
my $struct = XMLin( $xml, # Macht eine Datenstruktur daraus
( forcearray => [ qw/page/ ] ) );
print DUMP Dumper $struct; # Druckt in die Ausgabedatei
open ( XML , "> out.xml" ); # Öffnet Ausgabedatei für XML
my $dump = slurp( "out.dump" ); # Inhalt der Dumper-Datei einlesen
$struct = eval( $dump ); # Macht eine Datenstruktur daraus
$struct->{links}->{page}->[0]->{time} = time(); # fügt Zeit hinzu.
$xml = XMLout( $struct, # Macht XML aus der Datenstruktur
( xmldecl => 1 ) ); # Zeile:
print XML $struct; # Druckt in die Ausgabedatei
close (DUMP);
close (XML);