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 $sth = $dbh->prepare( qq{
38 select * from "ComuInfos"
43 while( my $row = $sth->fetchrow_hashref ) {
44 printf "%02x %-25s %s\n", $row->{adresse}, $types->{ $row->{typid} }, $text->{ $row->{id} };