Mejorando mi código Perl de la duda anterior, me he encontrado con otro problema.
Os cuento: quiero conseguir que mi código Perl mande un email cuando se cumpla determinada condición. Para ello, he incluido esto dentro de un if:
Using perl Syntax Highlighting
system("echo 'La CPU esta por debajo de su umbral de carga: Esta OK.' | sendmail -s 'CPUOK' [email protected]");
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Esto me funciona como comando normal (ejecutado " a mano " desde la shell), pero no consigo que funcione desde Perl.
He buscado por Google y he encontrado complejas funciones para manejar Sendmail desde Perl, pero... lamentablemente son demasiado para mi "iniciado" Perl.
Si alguien sabe del tema y me podéis contar un poco cómo hacerlo, sería genial.
Thax!!
Javi