write decimal and hex address
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 13 Dec 2014 13:02:38 +0000 (14:02 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 13 Dec 2014 13:02:38 +0000 (14:02 +0100)
db3-dump.pl

index 087fb14..ec8843e 100755 (executable)
@@ -45,7 +45,8 @@ order by adresse
 $sth->execute;
 
 while( my $row = $sth->fetchrow_hashref ) {
 $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} },
                $row->{adresse},
                $types->{ $row->{typid} },
                $units->{ $row->{id} },