<div dir="ltr">print &quot;Bom dia\n&quot; if day == manha;<br>print &quot;Boa tarde\n&quot; if day == tarde;<br>print &quot;Boa noite\n&quot; 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>&nbsp;&nbsp;&nbsp; foreach ( split(&quot;\n&quot;,$data-&gt;content()) ) {<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ( m{&lt;/strong&gt;&lt;br&gt;&lt;i&gt;&nbsp; \(&nbsp; (.+?)&nbsp; \)&nbsp; &lt;/i&gt;&lt;/td&gt;}igx ) {<br>
&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 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{&lt;TD.*?&gt;(.*?)&lt;/TD&gt;}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>&nbsp;{<br>&nbsp;my $self = shift;<br>&nbsp;my @filmes = ();<br>&nbsp;my $data = WWW::Mechanize-&gt;new();<br>&nbsp;$data-&gt;get(&#39;<a href="http://www.hgcinema.com.br/programacao/index.php&#39;">http://www.hgcinema.com.br/programacao/index.php&#39;</a>);<br>
&nbsp;&nbsp;&nbsp; foreach ( split(&quot;\n&quot;,$data-&gt;content()) ) {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if ( m{&lt;/strong&gt;&lt;br&gt;&lt;i&gt;&nbsp; \(&nbsp; (.+?)&nbsp; \)&nbsp; &lt;/i&gt;&lt;/td&gt;}igx ) {<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; push(@filmes,$1);<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;return @filmes;<br>
&nbsp;}<br><br>sub Procurar<br>&nbsp;{<br>&nbsp;my $self = shift;<br>&nbsp;my $busca = shift;<br>&nbsp;my $mini = WWW::Search::Mininova-&gt;new( category =&gt; &#39;Movies&#39;,sort =&gt; &#39;Seeds&#39; ,);<br>&nbsp;$mini-&gt;search(&quot;$busca&quot;);<br>
&nbsp;my $result = $mini-&gt;result;<br>&nbsp;&nbsp;&nbsp; if (defined $result-&gt;{name}) {<br>&nbsp;&nbsp;&nbsp; print &quot;Name: &quot;, $result-&gt;{name},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Seeds: &quot;, $result-&gt;{seeds},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Leechers: &quot;, $result-&gt;{leechers},$/,<br>
&nbsp;&nbsp;&nbsp; &quot;Uri: &quot;, $result-&gt;{uri},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Download uri: &quot;, $result-&gt;{download_uri},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Size: &quot;, $result-&gt;{size},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Category: &quot;, $result-&gt;{category},$/,<br>
&nbsp;&nbsp;&nbsp; &quot;Sub Category: &quot;, $result-&gt;{subcategory},$/,<br>&nbsp;&nbsp;&nbsp; &quot;Added data: &quot; ,$result-&gt;{added_date},$/;<br>&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; else {<br>&nbsp;&nbsp;&nbsp; print &quot;Not Found\n&quot;;<br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;}<br><br><br>}<br><br>
<b>-D-----&gt; Abraço </b><br>-- <br>print &quot;\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e&quot;,$/<br>
</div>