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 ) {
21 $data->{ $row->[0] } = $row->[1];
27 my $text = lookup( qq{
28 select Id, texteEN from "SymbolNames"
31 #warn "# text = ",dump( $text );
33 my $types = lookup( qq{
34 select TypeId, TypeName from "DataTyps"
37 my $units = lookup( qq{
38 select Id, TexteEN from "UnitNames"
41 my $sth = $dbh->prepare( qq{
42 select * from "ComuInfos"
47 while( my $row = $sth->fetchrow_hashref ) {
48 printf "%02x %-27s %-15s %s %s\n",
50 $types->{ $row->{typid} },
51 $units->{ $row->{id} },
53 $text->{ $row->{texteid} } || $row->{symbolname};