[SP-pm] Grep ou Map?

[Fernando Oliveira]

golf?

<code>
#!perl -pl
$s{/ /&&$'}++}{$a="192.168.0.1";$_="Não existe $a"if!$s{$a}
</code>

Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org


Em 2 de julho de 2010 09:22, Frederico Recsky <frederico em imovlr.com>escreveu:

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