#!/usr/bin/perl -w

my $ctabellen = 0;
my $crunden = 0;
my $jahr = $ARGV[0];
my $ligaid = $ARGV[1];

print "Jahr: $jahr Ligaid: $ligaid\n";

open (my $inf, "< $jahr/$ligaid/tabelle.xml");
open (my $inf, "< $jahr/$ligaid/runde/1/runde.xml");
while (<$inf>) {
	chomp;
	if (/<RangnrHeim>([0-9]+)<\/RangnrHeim>) {
	} elsif (/<RangnrGast>([0-9]+)<\/RangnrGast>) {
	}
	print $_;
}
close ($inf);
