Changed the Makefile for gmake.
[kokare.git] / octave / td2m
1 #!/usr/bin/perl -w
2
3 while(<>) {
4     if(/^(\d+)\s+([\d.]+)(-([\d.]+))?$/) {
5         if(defined($4)) {
6             $temp{$1} = ($2 + $4) / 2;
7         } else {
8             $temp{$1} = $2;
9         }
10     }
11 }
12
13 print "#name: ct\n";
14 print "#type: matrix\n";
15 print "#rows: 1\n";
16 print ("#columns: " . scalar(keys %temp) . "\n");
17 for $k (sort keys %temp) {
18     print " $k";
19 }
20 print "\n";
21
22 print "#name: cd\n";
23 print "#type: matrix\n";
24 print "#rows: 1\n";
25 print ("#columns: " . scalar(keys %temp) . "\n");
26 for $k (sort keys %temp) {
27     print " $temp{$k}";
28 }
29 print "\n";