comment on

Actually I'm having a problem trying to PAR a script I did that shows the proccesses running on Windows and the softwares responsible for them.

I'm not sure if I should be asking this here, but since it's directly related to this post I'll take my chances.

My script uses:

Win32::Process::Info
Tk
Tk::HList
Tk::ItemStyle

All this modules were installed via ActiveState's ppm.

When I try to run the .exe created by PAR I get the following Windows error message (please note that I'm translating the message since my natural language and OS language is brazilian portuguese):

"par.exe - Entry point not found. It wasn't possible to locate the Perl_Gsv_placeholder_ptr procedure's entry point in the dynamic library link perl58.dll."

and when I click "Ok" I see this on the command prompt:

Can't locate object method "_Typelibs" via package "Win32::OLE::Const" at C:/Perl/site/lib/Win32/OLE/Const.pm line 20. Compilation failed in require at C:/Perl/site/lib/Win32/Process/Info/WMI.pm line 162. BEGIN failed--compilation aborted at C:/Perl/site/lib/Win32/Process/Info/WMI.pm line 162. Compilation failed in require at C:/Perl/site/lib/Win32/Process/Info.pm line 190. at script/pmon2.pl line 44

If I just run the script with Perl it runs fine.

Here's the code:

#!/usr/bin/perl -w

use strict;
use Win32::Process::Info;
use Tk;
use Tk::HList;
use Tk::ItemStyle;

my $mw = MainWindow->new(
                         -width => 350,
                         -title => 'Processes Monitor',
                         -height => 50
                         );

my $hlist = $mw->Scrolled(
                          "HList",
                          -header => 1,
                          -columns => 3,
                          -scrollbars => 'osoe',
                          -width => 70,
                          -selectbackground => 'White',
                          )->pack(
                                  -expand => 1,
                                  -fill => 'both'
                                  );

my $hStyle = $hlist->ItemStyle(
                              "text",
                              -foreground => "black",
                              -font => "Verdana 8"
                              );

my $rStyle = $hlist->ItemStyle(
                              "text",
                              -foreground => "blue",
                              -background => "white",
                              -font => "Verdana 8"
                              );

$hlist->header('create', 0, -text => 'ID', -style => $hStyle);
$hlist->header('create', 1, -text => 'Nome', -style => $hStyle);
$hlist->header('create', 2, -text => 'Executável', -style => $hStyle);

my $pi = Win32::Process::Info->new ('lobo', 'WMI');
#"lobo" is my machine's name
#$pi->Set (elapsed_as_seconds => 0);    # In clunks, not seconds.
#@pids = $pi->ListPids ();      # Get all known PIDs
my @info = $pi->GetProcInfo ();   # Get the max
#%subs = $pi->Subprocesses ();  # Figure out subprocess relationships.

for (my $p = 0; $p < scalar @info; $p++)
{
    if (!($info[$p]{'ProcessId'}))
    {
        $info[$p]{'ProcessId'} = '';
    }
    
    if (!($info[$p]{'Name'}))
    {
        $info[$p]{'Name'} = '';
    }
    
    if (!($info[$p]{'ExecutablePath'}))
    {
        $info[$p]{'ExecutablePath'} = '';
    }
    
    my $pid = $info[$p]{'ProcessId'};
    my $pnm = $info[$p]{'Name'};
    my $pex = $info[$p]{'ExecutablePath'};
    
    $hlist->add($p);
    
    $hlist->itemCreate($p, 0, -text => "$pid", -style => $rStyle);
    $hlist->itemCreate($p, 1, -text => "$pnm", -style => $rStyle);
    $hlist->itemCreate($p, 2, -text => "$pex", -style => $rStyle);
}

MainLoop;
[download]

Am I missing something here, or it's all ok and the OP should be aware of this?

Thanks and sorry again to post a question inside a reply.

Er Galvão Abbott
www.galvao.eti.br
Porto Alegre Perl Mongers

In reply to Re: Using PAR: risk assessment by DaWolf
in thread Using PAR: risk assessment by spurperl

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


good chemistry is complicated, and a little bit messy -LW
	PerlMonks