Opened by Gast at 2004-07-26 14:16
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Wenn du alternativ eine Textdatei mit solchen zuweisungen auswerten möchtets, könnte das so aussehen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash;
while (<DATA>) {
s/,/\./g;
$hash{$1} = $2 if m/^(\w+)\s=\s(.*)$/;
}
print $hash{Wert1} - $hash{Wert2}, "\n";
print Dumper \%hash;
exit;
_ _DATA_ _
Wert1 = 1350,00
Wert2 = 216,00