[tutorial] xml no perl

bom galera para manipular xml no perl agente usar o modulo XML::Simple, e a funçao XMLin para ler a estrutura xml, vamos começar declarando o modulo

Código:

#!/usr/bin/perl

use XML::Simple;

agora vamos criar uma estrutura basica xml no caso vou criar no script mesmo e atribuir ela a uma variavel

Código:

#!/usr/bin/perl

use XML::Simple;

$fts = "<raiz><nome>fts315</nome></raiz>";

para agente ler a estrutra xml usamos a funçao XMLin e passamos como argumento a variavel, tambem atribuimos ela a uma variavel

Código:

#!/usr/bin/perl

use XML::Simple;

$fts = "<raiz><nome>fts315</nome><idade>20</idade></raiz>";
$hack = XMLin($fts);

agora lemos a variavel $hack com o nome das tags (no caso a primeira tag nao deve ser lida)

Código:

#!/usr/bin/perl

use XML::Simple;

$fts = "<raiz><nome>fts315</nome><idade>20</idade></raiz>";
$hack = XMLin($fts);

print "nome" . $hack->{nome};
print "idade" . $hack->{idade};


para melhorar na visualizaçao podemos usar o modulo Data::Dumper, para usar ele basta declarar o modulo e usar Dumper seguido da variavel

Código:

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;

$fts = "<raiz><nome>fts315</nome><idade>20</idade></raiz>";
$hack = XMLin($fts);

print Dumper $hack;


para agente ler um arquivo xml basta definir o endereço dele ao inves da variavel na funçao XMLin

Código:

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;

$hack = XMLin("/home/fts315/Desktop/fts.xml");

print Dumper $hack;

o arquivo xml

Código:

<?xml version="1.0" ?>

<raiz>
<nome>fts315</nome>
<idade>20</idade>
</raiz>

para agente ler um arquivo xml na web basta usar o modulo LWP::Simple, depois de declarar basta usar a funçao get seguido da url e atribuir a uma variavel, depois usar na funçao XMLin

Código:

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;
use LWP::Simple;

$fts = get("http://endoffile.umforum.net/rss");

$hack = XMLin($fts);

print Dumper $hack;

bom galera esse e o basico de como manipular xml em perl ^^

by hacker fts315