Olá Matheus,<br><br><div class="gmail_quote">2011/6/2 Matheus Lucas <span dir="ltr"><<a href="mailto:malsi2@yahoo.com.br">malsi2@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit">Bom dia amigos !<br>Estou com uma pequena duvida aqui, talvez alguem ai ja passou por isso...<br>estou pegando conteudo de alguns sites com o metodo get() do LWP::Simple<br>
<br> my $urlContent = get("<a href="http://www.cpvs.com.br/cpvs/prodpesquisa.aspx?codigo=87" target="_blank">http://www.cpvs.com.br/cpvs/prodpesquisa.aspx?codigo=87</a>");<br><br>porem, este site esta vindo originalmente em formato ISO(8859-1) e com um monte de caracteres bagunçados, quando eu abro em um navegador configurado para utf8...normal né. <font face="Arial" size="2"><p align="left">
<strong>Administração:<br>
</strong>
<span style="font-family:Arial">Administrado na ração para frangos de corte e perus.</span></p><p align="left"><br></p><p align="left">mais eu preciso desse arquivo em utf-8 !!!</p></font></td></tr></tbody></table>
</blockquote><div><br></div><div>*** DISCLAIMER: naked self promotion ***</div><div><br></div><div>Alternativamente, você poderia usar o DataFlow para manipular isso:</div><div><br></div><div><meta http-equiv="content-type" content="text/html; charset=utf-8">------------------------- cut here -------------------------</div>
<div>use DataFlow;</div><div><br></div><div>my $flow = DataFlow->new([</div><div> 'URLRetriever',</div><div> Encoding => { from => 'iso8859-1', to => 'utf8' },</div><div> SimpleFileOutput => { file => '> meuarquivo.html' },</div>
<div>]);</div><div><br></div><div>$flow->process( '<a href="http://www.cpvs.com.br/cpvs/prodpesquisa.aspx?codigo=87">http://www.cpvs.com.br/cpvs/prodpesquisa.aspx?codigo=87</a>' );</div><div>------------------------- cut here -------------------------</div>
<meta http-equiv="content-type" content="text/html; charset=utf-8"><div><br></div><div>[]s</div><div>AZ</div><div><br></div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit"><font face="Arial" size="2"><p align="left">continuando, eu abro um arquivo usando o open com o argumento "encoding(UTF-8)"<br>
</p></font>open( FILE, '>:encoding(UTF-8)', "ttt.htm" );<br>e escrevo da forma tradicional... nao conheço outra forma de escrever arquivos no perl.<br>print FILE $urlContent;<br>e mesmo assim ele vem com os caracteres da codificacao ocidental, porem eu verifico o arquivo com o comando ""file ttt.htm" e ele me fala que o arquivo ta em utf-8.<br>
<br>a pergunta é: alguem ai sabe como pegar esse codigo ou escrever ele ja na codificaçao utf-8 ????<br>espero ter sido claro :-)<br><br>Abraços a todos e obrigado !<br><br>Matheus Lucas<br>Viçosa-MG<br><br><br><br>--- Em <b>seg, 30/5/11, Diogo Leal <i><<a href="mailto:estranho@diogoleal.com" target="_blank">estranho@diogoleal.com</a>></i></b>
escreveu:<br><blockquote style="border-left:2px solid rgb(16, 16, 255);margin-left:5px;padding-left:5px"><br>De: Diogo Leal <<a href="mailto:estranho@diogoleal.com" target="_blank">estranho@diogoleal.com</a>><br>Assunto: [Rio-pm] FSLDC é neste sábado<br>
Para: "Perl Mongers Rio de Janeiro" <<a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a>><br>Data: Segunda-feira, 30 de Maio de 2011, 19:28<br><br><div>Pessoal, <br><br>Será neste sábado o Forum de Software Livre de Duque de Caxias, que contará com uma palestra sobre Perl Moderno. <br>
Acho que será bem válido a presença dos monges lá no evento.<br><br>O site do evento é => <a rel="nofollow" href="http://forumsoftwarelivre.com.br/2011/" target="_blank">http://forumsoftwarelivre.com.br/2011/</a><br>
<br>Eu sei que é em Caxias.. mas pô... Caxias é perto do Rio.<br><br><br><br clear="all">Diogo Leal [aka estranho]<br><a rel="nofollow" href="http://diogoleal.com" target="_blank">http://diogoleal.com</a><br>msn | gtalk: <a rel="nofollow" href="http://mc/compose?to=estranho@diogoleal.com" target="_blank">estranho@diogoleal.com</a><br>
<br>
</div><br>-----Anexo incorporado-----<br><br><div>_______________________________________________<br>Rio-pm mailing list<br><a href="http://mc/compose?to=Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div>
</blockquote></td></tr></tbody></table><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><font face="georgia, serif">Alexei "RUSSOZ" Znamensky </font><div>
<font face="georgia, serif">[russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>] [<a href="https://github.com/russoz" target="_blank">https://github.com/russoz</a>]<br>
<span style="border-collapse:collapse"><div>Only love / Can bring the rain / That makes you yearn to the sky</div></span></font></div><br>