NAME

OS2::Proc - Perl extension for get information about running processes and loaded modules.

SYNOPSIS

            

              
              
use OS2::Proc;
$p_info = (proc_info($$,1))[0]->[0];
$p_info->{pid} == $$ or die;
$t_info = $p_info->{threads}[0];
$ticks = ($t_info->{usertime}+$t_info->{systime});
%i = OS2::SysInfo;
$cpu_time = $ticks*$i{TIMER_INTERVAL}/10000;
            
          

DESCRIPTION

This module access internal tables keeping information of OS/2 processes. The corresponding API call was present for a long time, but is documented only around OS/2 v4.5. Since older version are stable now, it should be safe to use this call (with certain limitations) for any version of OS/2.

Keep in mind that due to certain bugs in the OS/2 kernel some calls to this API may kill your system. E.g., it is not safe to get an info about non-existing PID until W3fp18. (The module contains a safeguard against this bug.)

This module allows querying the following data:

$href = global_info()

hash reference with sizes of internal tables for modules, procs, threads.

            

              
              
print "$_ => $href->{$_}\n" for qw(modules procs threads);
            
          

$href_modules = mod_info()

$href_modules indexes modules by their handles, the value being a hash reference with the following fields:

            

              
              
cnt_static       - No. of modules linked in at compile time
name             - Full path name (except for SYSINIT/basedevs?)
segcnt   - ?? Number of segments?
static_handles - array reference with handles of modules linked
        at compile time
static_names     - same with names
type             - ?? SYSINIT/IFS/DMD/SYS=0, DLL/EXE=1,
            
          

($aref_processes, $href_modules) = proc_info(0)

information about all processes and modules on the system. Each entry referenced by $aref_processes is a hash reference with the following fields:

            

              
              
threads   - Array of hash references with thread information
pid               - pid
ppid              - parent pid
proc_type         - FullScreen/RealMode/VIO/PM/Detached
type              - 0..4 (see proc_type)
status_array    - combination of ExitList/ExitingT1/Exiting/
        NeedsWait/Parent-Waiting/Dying/Embrionic
state             - combination of flags in 0x01..0x80 (see status_array)
sessid    - SessionId
module_name       - full name of the executabale (!)
module_handle     - module handle of the executable
threadcnt         - No. of threads
privsem32cnt    - No. of private 32bit semaphores
sem16cnt          - No. of 16bit semaphores
dllcnt    - length
shrmemcnt         - No. of shared memory segments
fdscnt    - No. of available file descriptors
dynamic_names     - reference to array with full names of
        runtime-loaded modules (!)
dynamic_handles - same with handles
static_handles  - array reference with handles of modules linked
        at compile time (!)
static_names      - same with names (!)
            
          

Each thread-information hash has the following entries

            

              
              
priority         - absolute priority (?)
priority_class - Idle-Time/Regular/Time-Critical/Fixed-High
priority_level - Priority shift inside class (larger is higher)
sleepid  - ???
slotid   - "Global" thread id
state            - 1,2,5 (see thread_state)
systime  - Cumulative no. of busy ticks spent in syscalls
thread_state     - Ready/Blocked/Running
threadid         - Thread Id "in the process"
usertime         - Cumulative no. of busy ticks spent in user code
            
          

Keep in mind that the semantic of priority_class is not monotonic, monotonic is Idle-Time/Regular/Fixed-High/Time-Critical.

The $href_modules is the same as for mod_info().

$aref = proc_info()

same info with processes restricted to the current process, and modules to modules used by the current process.

$aref = proc_info($pid)

same about a given ProcessID.

$aref = proc_info($pid,$flags)

Allows restriction of the information restricted to one about

            

              
              
processes       - 0x001
modules - 0x002
semaphores      - 0x004
shared memory - 0x008
files           - 0x100
            
          

and without any parsing. The description above corresponds to $flags==3. Only the combinations of 0x1 and 0x2 are allowed now. If 0x2 is not present, the fields marked with (!) are omited from the process list descriptions.

$href = process_info($pid)

Gives a reference to a hash with process information as above, except for those marked with (!).

AUTHOR

Ilya Zakharevich <ilya@math.ohio-state.edu>

SEE ALSO

perl(1).