Compare commits

..

No commits in common. "d3602d5b2165edf66a0c4bdbf4652cb3cd3d5ac8" and "34ed1e8121c2eb14f862c2e74e03de180c4fd450" have entirely different histories.

3 changed files with 6 additions and 58 deletions

View File

@ -9,44 +9,8 @@ https://en.wikipedia.org/wiki/DBM_(computing)
## Exemple ## Exemple
Le mini-script Perl `exemple.pl` montre bien comment faire une "base de données Le mini-script Perl `exemple.pl` montre bien comment faire une "base de données
associative" en Perl. Il extrait les champs _usernale_ et _GECOS_ du fichier associative" en Perl.
`/etc/passwd` et les injecte dans un fichier gdbm.
```
tth@redlady:~/Devel/KlugyTools/DumpGDBM$ ./exemple.pl
tth@redlady:~/Devel/KlugyTools/DumpGDBM$ ./dumpgdbm -i exemple.gdbm
working on [exemple.gdbm]
dumpgdbm > first
K: rtkit.
D: RealtimeKit,,,.
dumpgdbm > next
K: man.
D: man.
dumpgdbm > next
K: lightdm.
D: Light Display Manager.
dumpgdbm > ? ks
command [ks]
Search a posix regex pattern in all the key fields.
dumpgdbm > ks root
K: root.
D: root.
dumpgdbm > ks tth
K: tth.
D: tTh,,,.
dumpgdbm >
EOF ?
tth@redlady:~/Devel/KlugyTools/DumpGDBM$
```
Well done bro.

View File

@ -15,7 +15,6 @@ while (<SOURCE>)
@champs = split ":", $_; @champs = split ":", $_;
$user = $champs[0]."\0"; $user = $champs[0]."\0";
$gecos = $champs[4]."\0"; $gecos = $champs[4]."\0";
# print $user, " ", $gecos, "\n";
$DB{$user} = $gecos; $DB{$user} = $gecos;
} }

View File

@ -5,24 +5,9 @@ Divers outils pour faire des choses diverses...
Beaucoup de choses anciennes que je traine de systèmes en systèmes, et qui ont Beaucoup de choses anciennes que je traine de systèmes en systèmes, et qui ont
parfois une utilité limitée. Du code qui a presque vingt ans. parfois une utilité limitée. Du code qui a presque vingt ans.
## DumpGDBM * DumpGDBM : debug de fichier `key/data`
* Hexdiff : comparer deux fichiers binaires
Pour le debug des fichiers `key/data` géres par GDBM. Ligne de commande * Checkresolv : fouiller la résolution de nom.
aver une interface _readline_.
## Hexdiff
Pour comparer visuellement deux fichiers binaires. Interface `ncurses` trop
choupie. Devrait peut-être un jour (mais flemme) passer à la couleur.
![Hexdiff](http://tboudet.free.fr/hexdiff/ecran.png "Hexdiff")
## Checkresolv
Vieux truc rudimentaire pour fouiller dans la résolution de nom.
L'adaptation à `IPv6` est à l'étude.