add exemple for dumpgdbm use

This commit is contained in:
tTh 2022-12-03 17:43:04 +01:00
parent ec010fef89
commit d3602d5b21
2 changed files with 40 additions and 3 deletions

View File

@ -9,8 +9,44 @@ https://en.wikipedia.org/wiki/DBM_(computing)
## Exemple
Le mini-script Perl `exemple.pl` montre bien comment faire une "base de données
associative" en Perl.
associative" en Perl. Il extrait les champs _usernale_ et _GECOS_ du fichier
`/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,6 +15,7 @@ while (<SOURCE>)
@champs = split ":", $_;
$user = $champs[0]."\0";
$gecos = $champs[4]."\0";
# print $user, " ", $gecos, "\n";
$DB{$user} = $gecos;
}