HASH

[Cheatah]

Hi,

die Initiative für ein sauberes Perl [tm] sagt dazu:

#!/usr/bin/perl -w
use strict;

%Daten =()

my %daten;

open(CARDS, ">$datei.txt");

Zum Schreiben öffnen?!

open(CARDS,"$datei.txt") or die "Kann $datei.text nicht oeffnen: $!";

while = (<CARDS>){

while (<CARDS>) {

$TheDaten = $_; chomp($TheDaten)

chomp;

($Key,$Werte) = split(/=/, $TheDaten);

my ($key, $wert) = split /=/;
$daten{$key} = $wert;
}

So jetzt währen die Daten gesplittet. Wann sind die Daten im HASH das man mit

@tools =@{$Daten{'$Key'}
  
einen bestimmten Wert aus der Datenbank lesen kann?

Wenn Du sie reinschreibst, was Du offenbar vergessen hast. Aber warum willst Du so verquer auf die Daten zugreifen? Meinst Du wirklich das damit, was Du sagst?

Cheatah