Enviado em 21/12/2016 - 16:12h
Boa tarde, estou começando a aprender Perl (bem no começo mesmo...hehehe) e estou alterando um CGI aqui na empresa mas tenho algumas dificuldades...if (!open (services,"grep -EA2 \"define[ ]+service[ ]+\" ".$objects_cache."| grep -Eo \"(host_name|service_description).+\"|perl -pe 's/^(service_description)\\s+(.+)\$/\\1|\\2/'|perl -pe 's/^(host_name)\\s(.+)\$/\\1|\\2/'|perl -pe 's/^(host_name.+)\n\$/\\1|/'|")){
print "Fail to create service list from $objects_cache: $!\n";
}
else {
while (<services>) {
local ($a,$c,$b,$d) = split/[|\n]/,$_;
if ($a eq "host_name" && $b eq "service_description") {
if ($d =~ /($h)/i){ # i indicates case insensitive match
push (@service_list, $c."|".$d);
}
}
}
}
close(services);
Mitigação - O que é e quando é "seguro" desabilitar
Atualizar Debian Online de uma Versão para outra
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
[aprendendo algo novo] Diferença entre ser eficiente, eficaz e efetivo... (4)
Possível Migração de windows para linux ???? (pc da empresa) (3)