7 Einträge, 1 Seite |
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";
1
2
3
4
5
6
7
8
9
10
11
while(<DATA>) {
m{=\s+(-?\d+)\.(\d+)};
print "$1.$2\n";
}
exit;
__DATA__
A0 = 10.345190
BO = 856.485177
BOP = 4.241238
C = -0.644826
7 Einträge, 1 Seite |