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.325 ]

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

Ponteiros - Saindo de Pesadelos

Bind: Explorando e evitando falhas

Apache + PHP + MySQL + ftpd no OpenBSD

Usando o PF - Packet Filter

Leitura recomendada

A forma correta de se instalar módulos Perl

Instalação de MRTG em ambiente Windows

Phperl, minha gambiarra para usar Perl como se fosse PHP

Enviando emails em Perl

URL amigável com Perl

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