Auslesen eines wertes

[Daniel Thoma]

Hallo Sandra,

Eine möglichkeit, die Datei zu lesen und in eine Datenstruktur zu speichern:

my $data = {}; #Ein Hash für die Daten.
open(IN,"datei.dat") #Datei öffnen
while(<IN>) { #Datei zeilenweise lesen
  chomp; #Zeilenumbruch am Zeilenende entfernen
  my @zeile = split(':'); #Zeile zerlegen
  $name = $zeile[0];
  $data->{$name} = {PASS=>$zeile[1]}; #In Daten einen neuen Eintrag für $name anlegen und das Passwort darin speichern.
  $_ = <IN>; #nächste Zeile lesen
  chomp;
  @zeile = split(':');
  #Die Werte der 2. Zeile auch noch speichern.
  $data->{$name}->{VNAME} = $zeile[0];
  $data->{$name}->{NNAME} = $zeile[1];
  $data->{$name}->{PASS1} = $zeile[2];
  $data->{$name}->{EMAIL} = $zeile[3];
  $data->{$name}->{TEMP} = $zeile[4];
}
close(IN); #Datei schließen

Jetzt hast Du eine Datenstruktur und kannst bequem auf alle Daten zugreifen.
Für die E-Mailaddresse also:
$data->{Fritz}->{EMAIL}

Viel Spaß bei verstehen ;-)

Grüße

Daniel