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);
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando e usando o Dconf Editor, o "regedit" para Linux
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Encriptografa... as particoes com LUKS, o que poderia dar errado? (1)
Remover por completo uma DE (5)
Qual a relevancia dos valores de bogomips com os Mhz e Ghz[DUVIDA] (2)