use strict;

package Nutzerverwaltung;

my @nutzers;

sub laden {
	return if (! -f "nutzer.csv");
	open (my $dh, "nutzer.csv");
	while (my $zeile = <$dh>) {
		chomp $zeile;
		my @elems = split(/,/, $zeile);
		die "Invalid file format. 3 elements expected in line: $zeile" unless (scalar @elems == 3);
		my $nutzer = {nachname => $elems[0], vorname => $elems[1], gebdat => $elems[2]};
		push @nutzers, $nutzer;
	}
	close $dh;
}

sub anlegen {
	my $nutzer = shift;
	push @nutzers, $nutzer;
}

sub lesen {
	my $nutzerid = shift;
	return undef if ($nutzerid >= scalar @nutzers);
	return $nutzers[$nutzerid];
}

sub alle_lesen {
	return \@nutzers;
}

sub speichern {
	open (my $dh, ">nutzer.csv");
	foreach my $nutzer (@nutzers) {
		print $dh "$nutzer->{nachname},$nutzer->{vorname},$nutzer->{gebdat}\n";
	}
	close $dh;
}

1;	
