#!/usr/bin/perl

$datei = shift (@ARGV);

stat $datei or $datei = "tag.txt";

open (DATEI, $datei) or die "Kann $datei nicht öffnen!\n";

$status = 0;
	# 0: Sektion wird eingelesen
	# 1: Werte einsammeln
$ebene = -1;
	# Welcher Tag?

while ($line = )
{
	# NEW Section?
	if ($line =~ /^$/)
	{
		$status = 0;
		continue;
	}
	if ($status)
	{
		($tag, $wert) = split ("=", $line);
		unless ($wert) { # kein ist gleich Zeichen
			next;
		}
		unless ($tag) { # leere Zeile
			next;
		}
	} else {
		$ebene ++;
		continue;
	}
	$feld{$tag} .= $wert . ";";	# Wert zuweisen
}

foreach $counter (%feld)
{
	print "$counter\n";
}