Opened by Gast at 2010-07-02 10:16
User since
2005-01-17
14748 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14748 Artikel
Admin1
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
my %hash; my $datei_name = 'test.txt'; open (my $fh, '<', $datei_name) or die "Datei kann nicht geöffnet werden $!"; # Datei öffnen my @daten = <$fh>; # alle Zeilen in Array einlesen close $fh; chomp(@daten); # Newlines entfernen %hash = @daten; # Hash mit Liste füllen
//EDIT: Variablennamen richtig geschrieben
Da die Daten ja zeilenweise Schlüssel und Wert haben, kann das einfach dem Hash zugewiesen werden.
Ein Hash kann beispielsweise auch so beschrieben werden:
Code: (dl
)
1
2
3
4
5
6
7
8
@daten = ('K1', 22, 'P', 66, 'WWW', 9, 'i', 12);
%beispiel_hash = (
# Schlüssel Wert
'Schluessel1', 12,
'Key2 => 'Wert2',
@daten,
'K1', 22, 'P', 66, 'WWW', 9, 'i', 12
);Last edited: 2010-07-02 10:46:54 +0200 (CEST)