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);
Enviado em 21/12/2016 - 18:29h
Ei amigo, antes de você modificar algun programa mais complexo, você não acha melhor ficar mais por dentro da linguagem ?Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Grub não reconhece o Windows 11 (3)
como posso fazer overclock nesse programa? (1)
PC congelando em momentos aleatórios (em várias distros) (2)