[Cascavel-pm] Duvida com exec

[Luis Motta Campos]

Agustinho Coelho wrote:
> Boa Tarde Pessoal,
> 
> Estou tentando utilizar a função exec, mas estou enfrentando 
> dificuldades... Eu li o perldoc, tentei utilizar as diversas maneiras 
> aprensentadas, mas sem sucesso. O programa que tento fazer é para 
> verificar se um host da rede está funcionando, se ele não responder, ele 
> me envia um email. (eu tentei utilizar o módulo libemail-simple-perl e 
> libemail-send-perl, mas ainda estou muito cru para isso :S ). Segue o 
> código:
> 
> #/bin/perl -w
> 
> exec ('ping -c4 192.168.0.122 > /dev/null 2&1');
> if ( $? == 0 ); then {
>        exec ('echo "teste" | mail -s "host $(hostname) is up" 
> email em dominio.com.br');
> } else {
>        exec ('echo "teste" | mail -s "host $(hostname)is down " 
> email em dominio.com.br');
> }

Por que você não tenta o Mail::Send, Agustinho?

É mais simples, e ele vai provavelmente gerir os time-outs e outros 
problemas da sua rede sozinho.

Claro, você não deve depender de emails para saber se seus serviços de 
rede estão funcionando ou não, mas isso é um outro problema.

Putamplexos!
-- 
Luis Motta Campos is a software engineer,
Perl Programmer, foodie and photographer.