#!/usr/bin/perl

#
# Autor: 	Sebastian Enger
# Zweck: 	Erstellung von SQL-Daten aus vorgegebenen XML-Daten
# Datum: 	14.11.2005
# Version: 	0.2
#

if (!defined( $ARGV[0])) {
	print "perl $0 file.xml\n";	
};

my $hashref = &simepleXmlParser($ARGV[0]);


sub simepleXmlParser() {

	my $file = shift;

	open(XML,"<$file");
		@content = <XML>;
	close XML;

	my $hashref = ();

	foreach my $entry (@content){
	
		my (undef, $val) = split('<', $entry);
		next if ($val =~ /^\//);
		next if $val =~ /\s/;
	
		if ($val =~ /(\w)+>+(\w)/) {
			my ($val_name, $val_val) = split('>', $val);
			$hashref->{$val_name} = $val_val;
		};
	};
	return $hashref;
}; # sub simepleXmlParser() {}


$hashref->{'Vorname'};
$hashref->{'Datenquelle'};
$hashref->{'CO1Feld'};
$hashref->{'LandISO'}; 
$hashref->{'Vorname'};
$hashref->{'LetzteAenderung'};
$hashref->{'Anrede'};
$hashref->{'Mitarbeitergruppe'};
$hashref->{'CO2Feld'};
$hashref->{'Name'};
$hashref->{'PersNr'}; 
$hashref->{'Beschaeftigungsstatus'};


