Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Find no of objects currently running now

by kalyanrajsista (Scribe)
on Feb 18, 2010 at 11:21 UTC ( #823915=perlquestion: print w/ replies, xml ) Need Help??
kalyanrajsista has asked for the wisdom of the Perl Monks concerning the following question:

Hello all

I'm using Win32::OLE module to invoke 'imacros' object. FYI 'imacros' is an automation tool and I'm using Perl to do automation tasks with help of 'imacros'. Is there any way that I can know how many 'imacros' objects or instances that are currently running now so that I can set MAX_PARALLEL_JOBS to any configuration value so that my system wouldn't end up with any memory issues

Comment on Find no of objects currently running now
Re: Find no of objects currently running now
by Anonymous Monk on Feb 18, 2010 at 11:38 UTC

      I'm trying with the following code

      use strict; use warnings; use Win32::OLE; my $GlobalMacro; for ( 1 .. 2 ) { $GlobalMacro = Win32::OLE->new('imacros') or die "Win32:OLE proble +m\n"; $GlobalMacro->{Visible} = 1; $GlobalMacro->iimInit(); } Win32::OLE->EnumAllObjects($GlobalMacro); my $Count = Win32::OLE->EnumAllObjects( sub { my $Object = shift;; my $Class = Win32::OLE->QueryObjectType($Object); printf "# Object=%s Class=%s\n", $Object, $Class; } );

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://823915]
Approved by BioLion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (9)
As of 2014-08-30 18:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls