Módulos de Web no Perl

Cooler_

Neste artigo apresento alguns métodos para trabalhar com "tags" e "reg" em Perl de maneira simples e prática usando alguns módulos.

[ Hits: 17.820 ]

Por: C00L3R_ em 19/08/2008 | Blog: https://github.com/CoolerVoid

0 0

Denuncie Favoritos Indicar Impressora

Usando TokeParser

Outro módulo bacana de trabalhar é o HTML::TokeParser. Com ele você pode retirar apenas o que quiser sem o uso de regex ou POG. Veja o exemplo:

use HTML::TokeParser;
my $file = shift;
my $p = HTML::TokeParser->new($file);
while ($p->get_tag('h1')) {
&nbso;print $p->get_text(), " ";
}

Executamos o comando abaixo:

perl prog.pl index.html

Abaixo o conteúdo do arquivo index.html:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head><title>Test HTML Page</title>
</head>
<body>
<h1>The first major item</h1>
<h2>Section 1.1</h2>
<p>Some text<p>
<h2>Section 1.2</h2>
<h3>Section 1.2.1</h3>
<p>blah</p>
<h3>Section 1.2.2</h3>
<p>blah</p>
<h1>Another major header</h1>
<h2>Section 2.1</h2>
<h3>Section 2.1.1</h3>
<h3>Section 2.1.2</h3>
<h2>Section 2.2</h2>
</body>
</html>

Veja a saída do programa:

The first major item
Another major header

Ou seja, ele retirou o que estava entre as tags "h1". Bem simples de usar.

Fico por aqui mesmo com o artigo porque tem muitos outros módulos.

Informações sobre outros módulos, vide CPAN.

Página anterior

Páginas do artigo

   1. Introdução a alguns módulos Web
   2. Usando LinkExtor
   3. Usando TokeParser

Outros artigos deste autor

Usando OpenBSD como desktop

Trabalhando com arquivos no Perl

Banco de dados orientados a documentos

Buffer Overflow: Entendendo e explorando

Ponteiros - Saindo de Pesadelos

Leitura recomendada

A forma correta de se instalar módulos Perl

Catalyst Framework Perl (parte 1)

Instalação de MRTG em ambiente Windows

Módulos CPAN no Debian e distros GNU/Linux em geral

Enviando notificações do Nagios para o MSN

Comentários

[1] Comentário enviado por removido em 19/08/2008 - 16:59h

muito bom .....
Tony posso te fazer umas perguntas,
o OpenBSD já está usando o driver nvidia ??????
E desktop 3d, algum dia vai ter ????????????

vlw ....

0 0

[2] Comentário enviado por Cooler_ em 19/08/2008 - 19:32h

fica dificil,
lembra da meta do openBSD "no blobs"
ou seja sem drivers proprietarios que não mostra a source he o caso da Nvidia e da ATI
OpenBSD da suporte para drivers Open Source como o drive da Ralink...
quanto ao desk 3d acho dificil viu soh se a Nvidia liberar source de um codigo fonte de um
dos seus muitos drivers, se tiver algum ja deve tar rolando no OpenBSD
abraço

0 0