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);
DOOM clássico (quase) vanilla e um pouco melhorado
Mamãe, quero descompactar e também compactar arquivos no terminal!
Conheça a extensão Just Perfection para mudar várias opções do Gnome
Desligando ou reiniciando o Gnome rapidinho
Desligando ou reiniciando o KDE rapidinho