First page Back Continue Last page Overview Graphics
regexp: exemplo
obtendo bookmarks de um arquivo
set f [open bookmarks.html r]
set s [read $f]
close $f
set re {(<[aA] .*?>){$i}(.*?)</[aA]>}
set i 1
while {[regexp \
[subst -nocommands -nobackslashes $re] \
$s match atag txt]} {
puts “titulo: $txt\nlink: $atag\n”
incr i
}
exercícios: 1- Adicionar outro regexp para extrair a URI (tipo http://dominio.com/pagina.html) da variável atag acima.
2- Modifique o procedimento acima para retirar o limite de 255 links.