Ajuda com CGI em perl

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?

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

Willi4m
(usa KUbuntu)

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

Obrigado amigo, vlw!