golf?<div><br></div><div><code></div><div><div>#!perl -pl</div><div>$s{/ /&&$'}++}{$a="192.168.0.1";$_="Não existe $a"if!$s{$a}</div></div><div></code></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"><<a href="mailto:frederico@imovlr.com">frederico@imovlr.com</a>></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 <<a href="mailto:marcelo.gigliotti@gmail.com">marcelo.gigliotti@gmail.com</a>>:<br>
<div class="im">> Srs do conselho :-),<br>
><br>
> estou desenvolvendo um script pra fazer algumas validações nos meus<br>
> servidores... casos particulares da app mesmo... e estou com a seguinte<br>
> situação...<br>
><br>
> em determinado momento... eu tenho o seguinte bloco<br>
><br>
> my $conf_local = "server 192.168.10.3";<br>
> my @conf_srv = qx(cat /etc/ntp.conf | grep -i ^server);<br>
> este comando me retorna algumas linhas... como<br>
><br>
> *****<br>
> server 192.168.1.2<br>
><br>
> ***********<br>
><br>
> if ( grep (! /$conf_local/,@conf_srv) {<br>
> print "Nao encontrado";<br>
> }<br>
><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, "<" , "/etc/ntp.conf";<br>
<br>
while (<$fh>) {<br>
<br>
next if !/^server\s(.*)/;<br>
<br>
$server{$1} = 1;<br>
<br>
}<br>
<br>
print "nao existe 192.168.0.1\n" if ! exists $server{'192.168.0.1'};<br>
print "nao existe 10.147.82.1\n" if ! exists $server{'10.147.82.1'};<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>