El Thursday, 29 de October de 2009 16:08:03 Arnau Bria va escriure:
> torno amb el Perl, una pregunta molt semblant a algo que ja vaig
> preguntar fa temps... i senzillet...
>
> vull saber si N processos estan corrent en una màquina, els N processos
>....
> *Estava pensant en fer un sort al llistat de processos (i ordenar
> els if alfabèticament, clar) així a la que un if falla ja puc sortir i
> escopir l'error... em dona igual comprovar els altres serveis si un
> falla. Vamos, que ja vull que falli tot l'script.
Amb aquestas especificacions el mes sencill em sembla que es cualsevolt cosa
semblant a aquesta:
use strict;
use warnings;
my @procesos = qw(kmail iceweasel kterm);
my $actual = `ps aux`;
for my $proceso (@procesos) {
next if $actual =~ /$proceso/s;
die "Falta '$proceso'";
}
Segun que opciones uses en el ps puedes usar un oneliner como:
perl -e'$running = `ps `; $running =~ /$_/ or die "Falta $_" for (@ARGV);'\
bash startkde kmail pepe
--
_______________________________________________
Comandob mailing list
[email protected]
http://lists.badopi.org/mailman/listinfo/comandob
