Bookmark � o tipo de coisa que cresce de forma descontrolada.
De tanto ficar perdido procurando coisas no bookmark, acabei fazendo
um pequeno script perl para procurar informa��es no bookmarks.html do
Netscape 4.
Para minha surpresa, funciona excelentemente bem, muito melhor do que
esperava!
Eu o chamo de "b" de "bookmark", e � s� usar como "b perl_regex".
#!/usr/bin/perl
@ARGV <= 0 && die "Use: b search_patern [bookmarkfiles]\n";
$s = shift @ARGV;
@ARGV <= 0 && push @ARGV, "$ENV{HOME}/.netscape/bookmarks.html";
LOOP:
while (<>) {
m|<DT><H3.*?>(.*?)</H3|i && do {
# print join (" :: ", @class), "\n";
push @class, $1;
$classp = 1;
next LOOP;
};
m|</DL>|i && do {
pop @class;
$classp = 1;
next LOOP;
};
next if ! (($u,$c) = /href="(.*?)".*?>(.*?)<\/a>/i);
if ($u =~ /$s/i || $c =~ /$s/i) {
print join (" :: ", @class), "\n" if $classp;
$classp = 0;
print "$c\n $u\n\n";
}
}
Divirtam-se... :)
--- Wagner [EMAIL PROTECTED]
Assinantes em 30/04/2001: 2250
Mensagens recebidas desde 07/01/1999: 111488
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
