foreach $zeile (<Datei>)
{
my @zeile = split(/:/,$zeile); # Aufsplitten der Zeile
$zeile = join(':',(@zeile)[2,3,4,5,6]); # Array ohne User und Passwort
$namenliste{$zeile[0]} = $zeile; # hash füllen: key = user-name,
                            # value = UID, GID, Komment, home, shell


}
print "\n", "Datei Passwd erfolgreich eingelesen.\n";

close (Datei);



print "\n Dies sind die Namen der User. Welche User soll ausfuehrlich angezeigt werden? \n ";
foreach $key (keys(%namenliste))
{
print " $key \n";
}

print "Fuer welchen Benutzer sollen die Daten angezeigt werden? ";
$name = <STDIN>;
chomp ($name);
if (exists $namenliste{$name}) # Ausgabe der Daten für einen Benutzer
{
print "\nDaten des Benutzers $name aus passwd :";
print "\nUser-ID: $zeile[2]";
print "\nGroup-ID: $zeile[3]";
print "\nKommentar: $zeile[4]";
print "\nHome-Verz: $zeile[5]";
print "\nShell: $zeile[6]";
}
else
{ print "\nBenutzer falsch eingegeben"; }