golf?<div><br></div><div>&lt;code&gt;</div><div><div>#!perl -pl</div><div>$s{/ /&amp;&amp;$&#39;}++}{$a=&quot;192.168.0.1&quot;;$_=&quot;Não existe $a&quot;if!$s{$a}</div></div><div>&lt;/code&gt;</div><div><br clear="all">

Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
<br><br><div class="gmail_quote">Em 2 de julho de 2010 09:22, Frederico Recsky <span dir="ltr">&lt;<a href="mailto:frederico@imovlr.com">frederico@imovlr.com</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Olá,<br>
<br>
2010/7/2 Marcelo Gigliotti &lt;<a href="mailto:marcelo.gigliotti@gmail.com">marcelo.gigliotti@gmail.com</a>&gt;:<br>
<div class="im">&gt; Srs do conselho :-),<br>
&gt;<br>
&gt; estou desenvolvendo um script pra fazer algumas validações nos meus<br>
&gt; servidores... casos particulares da app mesmo... e estou com a seguinte<br>
&gt; situação...<br>
&gt;<br>
&gt; em determinado momento... eu tenho o seguinte bloco<br>
&gt;<br>
&gt; my $conf_local = &quot;server 192.168.10.3&quot;;<br>
&gt; my @conf_srv = qx(cat /etc/ntp.conf | grep -i ^server);<br>
&gt; este comando me retorna algumas linhas... como<br>
&gt;<br>
&gt; *****<br>
&gt; server 192.168.1.2<br>
&gt;<br>
&gt; ***********<br>
&gt;<br>
&gt; if ( grep (! /$conf_local/,@conf_srv) {<br>
&gt;        print &quot;Nao encontrado&quot;;<br>
&gt; }<br>
&gt;<br>
<br>
</div>mmm, sem usar fork externo, num idioma mais perlzistico.<br>
<br>
# cat <a href="http://lista.pl" target="_blank">lista.pl</a><br>
                                                           ──()─┘<br>
<br>
my %server;<br>
<br>
open my $fh, &quot;&lt;&quot; , &quot;/etc/ntp.conf&quot;;<br>
<br>
while (&lt;$fh&gt;) {<br>
<br>
    next if !/^server\s(.*)/;<br>
<br>
    $server{$1} = 1;<br>
<br>
}<br>
<br>
print &quot;nao existe 192.168.0.1\n&quot; if ! exists $server{&#39;192.168.0.1&#39;};<br>
print &quot;nao existe 10.147.82.1\n&quot; if ! exists $server{&#39;10.147.82.1&#39;};<br>
<br>
#perl <a href="http://lista.pl" target="_blank">lista.pl</a><br>
                                                          ──()─┘<br>
nao existe 192.168.0.1<br>
<br>
A busca no hash é bem melhor, e nao iterativa no caso.<br>
<font color="#888888"><br>
--<br>
Frederico Recsky<br>
<a href="http://fred.eti.br" target="_blank">http://fred.eti.br</a><br>
</font><div><div></div><div class="h5">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></div></div></blockquote></div><br></div>