<div dir="ltr">#! /usr/bin/perl -w<br>
use HTML::TreeBuilder;<br>
use WWW::Mechanize;<br>
use strict;<br>
my $m = WWW::Mechanize->new();<br>
$m->get('<a href="http://www.hgcinema.com.br/programacao/index.php%27" target="_blank">http://www.hgcinema.com.br/programacao/index.php'</a>)<div id=":9r" class="ArwC7c ckChnd">;<br>
my $string = $m->content;<br>
my $tree = HTML::TreeBuilder->new_from_content($string);<br>
#print $tree->as_HTML;<br>
my @filmes = $tree->look_down(_tag => 'tr', bgcolor=>"#ffffff",sub{$_[0]->attr('onclick') ne ''});<br>
print "\n\nFILME Censura Horario";<br>
foreach(@filmes){<br>
my @col = $_->look_down(_tag=>'td');<br>
my ($filme,$censura,$horario) = ($col[0]->as_text,$col[1]->as_text,$col[2]->as_text);<br>
print "\n$filme $censura $horario";<br>
}<br><br>Vou ter que estudar aqui. = D<br>Muito obrigado André<br><br>não é um "erro", é um caso de erro. E se o seu get() do site não<br>
funcionar? O site pode estar fora do ar, vc pode estar sem Internet...<br>
considerar possíveis casos de erro é algo importante em programas,<br>
pelo menos em programas sérios =)<br><br>Não sabia disso muito obrigado.<br><br><br>[]'s<br></div><br><br><br><div class="gmail_quote">2008/10/15 breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">2008/10/15 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>>:<br>
<div class="Ih2E3d">> Obrigado Breno.<br>
><br>
> Você pode trocar por algo como:<br>
><br>
><br>
> if ( $data->success() ) {<br>
> @filmes = $data->content() =~ m{<br><i>\((.+?)\)</i></td>}<br>
>><br>
>> gs;<br>
>> }<br>
><br>
><br>
> Não funcionou não.<br>
><br>
<br>
</div>Estranho. Aqui eu fiz o seguinte programa-teste:<br>
<br>
[filmes.pl]<br>
--------------8<-----------------<br>
<div class="Ih2E3d"> my @filmes = ();<br>
my $data = WWW::Mechanize->new();<br>
$data->get('<a href="http://www.hgcinema.com.br/programacao/index.php%27" target="_blank">http://www.hgcinema.com.br/programacao/index.php'</a>);<br>
<br>
</div><div class="Ih2E3d"> if ( $data->success() ) {<br>
@filmes = $data->content() =~ m{<br><i>\((.+?)\)</i></td>}gs;<br>
}<br>
<br>
</div> local $, = ", ";<br>
print @filmes;<br>
--------------8<-----------------<br>
<br>
> perl filmes.pl<br>
A Casa da M�e Joana, The House Bunny, A Guerra dos Rocha, The Mummy:<br>
Tomb of the Dragon Emperor, Righteous Kill, The Dark Knight, Bezerra<br>
de Menezes - O Di�rio de um Esp�rito, Taken, Chasseurs de Dragons,<br>
Eagle Eye, Blindness, Era uma vez..., Hellboy II: The Golden Army,<br>
Kung Fu Panda, Babylon A.D., The Women, Nights in Rodanthe, Fly Me To<br>
the Moon, Disaster Movie, You Don�t Mess With The Zohan<br>
<br>
...que era o mesmo que a sua função retornava qdo rodei aqui. Talvez<br>
se vc mandar uma resposta um pouco menos críptica do que "Não<br>
funcionou não." eu possa te ajudar a depurar. Mas o André já enviou um<br>
exemplo com o TreeBuilder, dá uma olhada.<br>
<div class="Ih2E3d"><br>
> para vc lidar com o caso de erro no get() que vc faz na linha acima.<br>
><br>
> Não achei o "erro" que você disse no get().<br>
><br>
<br>
</div>não é um "erro", é um caso de erro. E se o seu get() do site não<br>
funcionar? O site pode estar fora do ar, vc pode estar sem Internet...<br>
considerar possíveis casos de erro é algo importante em programas,<br>
pelo menos em programas sérios =)<br>
<br>
[]s<br>
<font color="#888888"><br>
-b<br>
</font><div><div></div><div class="Wj3C7c">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></div></div></blockquote></div><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>