#!/usr/bin/perl
# Module verwenden
use XML::Simple;
use Data::Dumper;

# Bearbeitungsdatei definieren
my $path = "dump.xml";

# Bearbeitungsdatei einlesen und nach Regeln aufbauen um diese dann in while einzeln anzusprechen und abzufragen
my $data = XMLin('dump.xml', KeyAttr => ['Rule_Number']);

# Anzahl der Regeln bestimmen fuer while Funktion
my $tmp = XMLin('dump.xml');
my $count = @{$tmp->{fw_policie}->{rule}->{rule}};

# Zaehlerstart bei 1
my $i = 1;

# WHILE LOOP
while ($i <= $count) {
		if ($data->{fw_policie}->{rule}->{rule}->{$i}->{src}->{members}->{reference})  {
				print "Quelle: ", $data->{fw_policie}->{rule}->{rule}->{$i}->{src}->{members}->{reference}->{Name}, "\n";
		}
		elsif ($data->{fw_policie}->{rule}->{rule}->{$i}->{src}->{compound}->{compound}) {
				print "Quelle: ", $data->{fw_policie}->{rule}->{rule}->{$i}->{src}->{compound}->{compound}->{Name}, "\n";
		}
		if ($data->{fw_policie}->{rule}->{rule}->{$i}->{dst}->{members}->{reference})  {
				print "Ziel: ", $data->{fw_policie}->{rule}->{rule}->{$i}->{dst}->{members}->{reference}->{Name}, "\n";
		}
		elsif ($data->{fw_policie}->{rule}->{rule}->{$i}->{dst}->{compound}->{compound}) {
				print "Ziel: ", $data->{fw_policie}->{rule}->{rule}->{$i}->{dst}->{compound}->{compound}->{Name}, "\n";
		}
		print "\n";
	$i ++; # INCREMENT THE VARIABLE EACH TIME
}

und das XML als attachment...

Vielen Dank nochmal im Voraus.

schnerd