add exemple for dumpgdbm use
This commit is contained in:
parent
ec010fef89
commit
d3602d5b21
@ -9,8 +9,44 @@ 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.
|
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.
|
||||||
|
|
||||||
|
|
||||||
|
@ -15,6 +15,7 @@ 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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user