write decimal and hex address

[vrDialog] / db3-dump.pl

diff --git a/db3-dump.pl b/db3-dump.pl
index 087fb14..ec8843e 100755 (executable)
--- a/db3-dump.pl
+++ b/db3-dump.pl
@@ -45,7 +45,8 @@ order by adresse
 $sth->execute;
 
 while( my $row = $sth->fetchrow_hashref ) {
-       printf "%02x %-27s %-15s %s %s\n",
+       printf "%-3d %02x %-27s %-15s %s %s\n",
+               $row->{adresse},
                $row->{adresse},
                $types->{ $row->{typid} },
                $units->{ $row->{id} },