<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

=head1 Uso de "apropos" para carregar um dicionario exemplo

o comando "apropos padrao" mostra o resumo dos comandos (uma linha por cada um)
que contêm "padrao" na sua definição

   for (`apropos .)

percorrido para todos os resumos associados a ".", ou seja todos os comandos
para os quais existe "man"

=cut

use DB_File;
use Fcntl;

tie %dic, DB_File, "d.db", O_RDWR|O_CREAT, 0644, $DB_BTREE;

for (`apropos .`) { chop;
	if (/(.*?)\s/) { $dic{$1}=$' }
}

untie %dic;
</pre></body></html>