<div dir="ltr">print "Bom dia\n" if day == manha;<br>print "Boa tarde\n" if day == tarde;<br>print "Boa noite\n" if day == noite;<br><br>Bom pessoal como vocês disseram que não é bom usar Expressões Regulares para extrair conteúdo HTML, e pelo que vi no manual do WWW::Mechanize, porém eu não consigo extrair com a mesma eficácia.<br>
<br>Essa parte do código:<br><br><i> foreach ( split("\n",$data->content()) ) {<br>
if ( m{</strong><br><i> \( (.+?) \) </i></td>}igx ) {<br>
push(@filmes,$1);<br><br></i>Quero usar o WWW::Mechanize para extrair essa parte.<br>Olhei os exemplos do WWW::Mechanize:<br><u><a href="http://search.cpan.org/~petdance/WWW-Mechanize-1.34/lib/WWW/Mechanize/Examples.pod">http://search.cpan.org/~petdance/WWW-Mechanize-1.34/lib/WWW/Mechanize/Examples.pod</a></u><br>
e vi que o autor usou Expressões Regulares para extrair:<br><i> @bits = $r =~ m{<TD.*?>(.*?)</TD>}gs;</i><br><br>O meu projeto abaixo:<br><br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use WWW::Mechanize;<br>
use WWW::Search::Mininova;<br><br>{package Hgtorrent;<br><br>sub Nomes<br> {<br> my $self = shift;<br> my @filmes = ();<br> my $data = WWW::Mechanize->new();<br> $data->get('<a href="http://www.hgcinema.com.br/programacao/index.php'">http://www.hgcinema.com.br/programacao/index.php'</a>);<br>
foreach ( split("\n",$data->content()) ) {<br> if ( m{</strong><br><i> \( (.+?) \) </i></td>}igx ) {<br> push(@filmes,$1);<br> }<br> }<br> return @filmes;<br>
}<br><br>sub Procurar<br> {<br> my $self = shift;<br> my $busca = shift;<br> my $mini = WWW::Search::Mininova->new( category => 'Movies',sort => 'Seeds' ,);<br> $mini->search("$busca");<br>
my $result = $mini->result;<br> if (defined $result->{name}) {<br> print "Name: ", $result->{name},$/,<br> "Seeds: ", $result->{seeds},$/,<br> "Leechers: ", $result->{leechers},$/,<br>
"Uri: ", $result->{uri},$/,<br> "Download uri: ", $result->{download_uri},$/,<br> "Size: ", $result->{size},$/,<br> "Category: ", $result->{category},$/,<br>
"Sub Category: ", $result->{subcategory},$/,<br> "Added data: " ,$result->{added_date},$/;<br> }<br> else {<br> print "Not Found\n";<br> }<br> }<br><br><br>}<br><br>
<b>-D-----> Abraço </b><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>