Also, erstmal würde ich mir die Wiki:Buchempfehlungen ansehen.(Geht mit Buch einfach besser)
Und sonst, würde ich es so machen:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/perl -w
#
use strict;
my %pairs;
open IN, "datei.dat";
while (my$line = <IN>) {
chomp $line;
next if $line =~ /^\s*$/;
my($key,$val) = split /\s*=\s*/,$line;
$pairs{$key} = $val;
}
close IN;
print "A0: $pairs{A0}\n";
Habs nicht getestet!
Aber es müsste so funktionieren.(Pfad musste noch anpassen)
MfG. Matze
/EDIT: my $line => my$line\n\n
<!--EDIT|Matze|1144944802-->
Mit freundlichen Grüßen: Matze