Ajuda com CGI em perl

1. Ajuda com CGI em perl

William Souza
Willi4m

(usa KUbuntu)

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...
Segue elas:

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);



Pelo que vi ele procura por host_name e service_name no $objects_cache e pega os seu nomes e depois salva na @service_list...

Na verdade o que eu precisaria era pegar mais um dado no $objects_cache ("_PROG" que fica na linha 35) para depois eu fazer uma validação para sim depois salvar no @service_list.
Alguem poderia me dar uma ideia?


  


2. RE:Ajuda com CGI em perl

Perfil removido
removido

(usa Nenhuma)

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 ?
Um link que me ajudou bastante( ainda ajuda ) quando estava começando:

> https://www.tutorialspoint.com/perl/perl_cgi.htm

além desse, eles tem varios tuto para iniciantes


3. TKS!

William Souza
Willi4m

(usa KUbuntu)

Enviado em 22/12/2016 - 07:21h

Obrigado amigo, vlw!






Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts