[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] process.pm under macperl 513



Sorry, i answer to myself, but "a" solution is to recall
"GetProcessInformation" in order to work...

The problem is solved, but for my personal knowledge i am very
interesting in understanding why ???

> 
> use Mac::Files;
> use Mac::Memory;
> use Mac::Processes;
> use Mac::MoreFiles(%Application);
> use Mac::AppleEvents;
> ....
> sub kill_all
> {
> 
> local($psn,$psi,$pi,$a,$desc,$event,$PSNFINDER,$PSNPERL,$PIFINDER,$sig);
>         $a = GetCurrentProcess;
>         @PPSN=();
>         @PPI=();
>         while (($psn, $psi) = each(%Process))
>         {
>                 push(@PPSN,$psn) ;
>                 push(@PPI,$psi) ;
>                 print $psn." ".$psi->{processName}." ".$psi."\n";
>         }
>         $len = $#PPSN;
>         for ($i=0;$i<=$len;$i++)
>         {
>                 $psn = $PPSN[$i];
>                 $psi = $PPI[$i];
		  $psi = GetProcessInformation($PSN)
.....


Laurent BARDI Ingenieur Systemes & Reseaux 
Centre National de la Recherche Scientifique
INSTITUT  de PHARMACOLOGIE et de BIOLOGIE STRUCTURALE
Tel : 05-61-17-54-39             http://www.ipbs.fr/
Fax : 05-61-17-59-94             lolo@ipbs.fr
CNRS-IPBS 205 Route de Narbonne 31400 TOULOUSE FRANCE 

////////////////////////////////////////////////////
/ There is worse than to have not succeded :       /
/ Not to have  tried !                             /
////////////////////////////////////////////////////

If it stinks, it's chemistry. If it moves, it's biology.
If it does not work, It's computer science.

Linux the choice of a GNU generation

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch