On 3/27/07, <b class="gmail_sendername">Luis Motta Campos</b> &lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt; wrote:<div><span class="gmail_quote"></span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Mar 27, 2007, at 5:13 PM, rafamv1 wrote:<br>&gt; Bom dia a todos. Estou com uma dúvida. Tenho um arquivo aonde são<br>&gt; inseridos<br>&gt; os endereços de sites liberados no proxy. Eu queria saber se posso<br>&gt; criar um
<br>&gt; hash com o conteúdo desse arquivo e como.<br>&gt;<br>&gt; formato do arquivo<br>&gt; ----------------------------------------------------------<br>&gt; .algum.com.br<br>&gt; .teste.com<br>&gt; .outrosite.org.br<br>
&gt; <a href="http://teste.site.com.br">teste.site.com.br</a><br>&gt; <a href="http://www.site.com.br">www.site.com.br</a><br><br>&nbsp;&nbsp; Hashes são normalmente relacionamentos de dois dados diferentes,<br>na forma &quot;CHAVE&quot; =&gt; &quot;VALOR&quot;. Você deveria ler &quot;=&gt;&quot; como &quot;aponta para&quot;.
<br><br>&nbsp;&nbsp; Assim, você pode certamente criar um hash com os dados deste<br>arquivo. Basta saber qual é o dado que vai usar como &quot;VALOR&quot;.<br><br>&nbsp;&nbsp; Supondo que &quot;VALOR&quot; =&gt; 42 é o bastante para você ficar feliz, faz
<br>assim:<br><br>&nbsp;&nbsp; __PERL__<br>&nbsp;&nbsp; use strict;<br>&nbsp;&nbsp; use warnings;<br>&nbsp;&nbsp; use English;<br>&nbsp;&nbsp; use constant PROXY_CONFIG =&gt; &#39;/path/to/your/proxy.conf&#39;;<br><br>&nbsp;&nbsp; open my $fh, &#39;&lt;&#39;, PROXY_CONFIG<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die $OS_ERROR;
<br>&nbsp;&nbsp; my %config_file;<br>&nbsp;&nbsp; foreach my $key ( &lt;$fh&gt; ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $config_file{$key} = 42;<br>&nbsp;&nbsp; }<br>&nbsp;&nbsp; close $fh<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; or die $OS_ERROR;<br>&nbsp;&nbsp; __END__<br><br>&nbsp;&nbsp; Isso deve resolver seu problema, ou quase: resta saber o que você
<br>quer guardar associado com cada &quot;CHAVE&quot; que você ler do arquivo.</blockquote><div><br><span style="font-family: courier new,monospace;">O valor também pode ser&nbsp; nulo, &#39;&#39;. Eu utilizo esta &quot;técnica&quot; para excluir repetições deste tipo de arquivo, faço algo como :
<br><br>&lt;code&gt;<br>&nbsp;$hash{lc($valor)} = &#39;&#39;;<br>&lt;/code&gt;<br></span></div><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Funciona bem, desde que vc não tenha caracteres gráficos (çáéíó...) no valor.
</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Solli M. Honório</span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
&nbsp;&nbsp; Espero que isso ajude.<br>&nbsp;&nbsp; Putamplexos!<br>--<br>Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br>