<div dir="ltr">Boa Noite<br><br>Seguinte :<br>Se eu pegar a fonte deste site: <a href="http://www.hgcinema.com.br/programacao/index.php">http://www.hgcinema.com.br/programacao/index.php</a> , salvar em um txt, como no caso abaixo "cinema.txt", funciona perfeitamente.<br>
<br>open CINE,"<","cinema.txt" or die "Nao pode abrir cinema.txt\n";<br>my @cinema = <CINE>;<br>m#</strong><br><i>\((.+?)\)</i></td># && print $1,$/ foreach @cinema;<br clear="all">
<br>Agora, se eu pego direito da Internet só pega a primeira linha.<br>open DATA,">>","database.db" or die "Não pode abrir database.db\n";<br>my $database = WWW::Mechanize->new();<br>
$database->get('<a href="http://www.hgcinema.com.br/programacao/index.php'">http://www.hgcinema.com.br/programacao/index.php'</a>);<br>m#</strong><br><i>\((.+?)\)</i></td># && print $1,$/ foreach $database->content;<br>
<br>Não entendi, pois pelo que eu "sei" deveria funcionar da mesma forma, afinal os dois contém a mesma coisa.<br>Então, estou me esforçando se eu não me engano eu estava falando com o Wendel um tempo atrás ou com o Blabos ou com o Gabriel,<br>
e tem um caractere que transforma tudo em uma linha só, pois acho que quando puxa direito da Internet ele não percorre todas as linhas,<br>único problema que não lembro qual é esse caractere.<br>Obrigado^^<br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>