El jue, 29-10-2009 a las 16:08 +0100, Arnau Bria escribió:
> Hola a tots,
>
> 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
> són diferents. La meva idea inicial (copiant altres scripts que ja
> tenia on N era un nombre petit) és obrir el llista de processos,
> recorre'l buscant els N processos i si el trobo poso una variable a 1
> però clar, una varible per cada procés:
>
> open (PS,"ps -ef|");
> while (<PS>){
> if (/proces/){
> $proces=1;
> }
> [...] N vegades...
Tambe pots pasarli un sort -u al ps, possar en un array els processos
que busques i dp jugar amb ${^POSTMATCH}
O, tambe amb un sort, pots passarli un /g i buscar extreure /(proces1
\n).*(proces2\n)/
el que passa amb aquest "acostament" és que, si no vaig errat malament,
els ()? i les backreferences es porten malament a perl. si, mira,
comprovació ràpida:
perl -e 'print $1 if "foo bar" =~ /((bar)?)/'
--
_______________________________________________
Comandob mailing list
[email protected]
http://lists.badopi.org/mailman/listinfo/comandob
