[SP-pm] Grep ou Map?

[Frederico Recsky]

Olá,

2010/7/2 Marcelo Gigliotti <marcelo.gigliotti at 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/, at 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