6 use Data::Dump qw(dump);
8 my $dbh = DBI->connect ("dbi:CSV:", "", "", {
17 my $sth = $dbh->prepare( $sql );
20 while( my $row = $sth->fetchrow_arrayref ) {
23 $data->{ $row->[0] } = $#$row == 1 ? $row->[1] : join('', @r);
29 my $names = lookup( qq{
30 select Id, texteEN from "SymbolNames"
33 #warn "# names = ",dump( $names );
35 my $hints = lookup( qq{
36 select Id, texteEN from "SymbolHints"
39 my $types = lookup( qq{
40 select TypeId, TypeName from "DataTyps"
43 my $units = lookup( qq{
44 select Id, TexteEN from "UnitNames"
47 my $diags = lookup( qq{
48 select Id,x0136,x0142,x0144,x0147,x0151,x0152,x0153,x0158,x0160,x0161 from "DiagnoseDaten"
51 #warn "# diags = ",dump($diags);
53 my $sth = $dbh->prepare( qq{
54 select * from "ComuInfos"
60 while( my $row = $sth->fetchrow_hashref ) {
61 my $hint = $hints->{ $row->{texteid} };
62 $hint =~ s/[\r\n]+/ | /gs;
63 printf "%-3d %02x %-27s %-15s |%s| %s %s [ %s ]\n",
66 $types->{ $row->{typid} },
67 $units->{ $row->{id} },
68 $diags->{ $row->{id} } || ' ',
70 $names->{ $row->{texteid} } || $row->{symbolname},