请教：关于模块Win32::PerfMon使用报错

mouse.rice

如下一段代码，运行时总报错：
Can't locate loadable object for module Win32:erfMon in @INC(@INC contains: C:/Perl/site/lib C:/Perl/lib .) at ...... line3...

我明明cpan已经安装了该模块啊；另外，搜索PerfMon.pm具体安装路径，使用 use lib C:/...(《中级perl》3.9节中讲到使用该方法“适时地打开路径”)，运行后还是报错。请帮看看如何解决，谢谢！

程序代码如下：

1. #get_system_stats.pl
   
2. #use lib "C:/Perl/site/lib/Win32";
   
3. use Win32::PerfMon;
   
4. use strict;
   
5. 
   
6. my $ret = undef;
   
7. my $err = undef;
   
8. my $Object = undef;
   
9. my $Counter = undef;
   
10. my $CounterData = undef;
    
11. #connect to localhost for data
    
12. my $perfmon = Win32::PerfMon->new("\\\\localhost");
    
13. 
    
14. if($perfmon != undef)
    
15. {
    
16.       $ret = $perfmon->AddCounter("Processor",
    
17.                         "% Processor Time", "_Total");
    
18.       if($ret != 0) {
    
19.             $ret = $perfmon->AddCounter("Memory",
    
20.                         "Available MBytes", -1);
    
21.       }      
    
22.       if($ret != 0)
    
23.       {
    
24.             $ret = $perfmon->CollectData();               
    
25.             if($ret  != 0)                {
    
26.                   my $proctime = $perfmon->GetCounterValue(
    
27.                         "Processor","% Processor Time",
    
28.                         "_Total");
    
29.                          if($proctime > -1)
    
30.                   {
    
31.                   print "% Processor Time = [$proctime]\n";
    
32.                   }
    
33.                   else
    
34.                   {
    
35.                   $err = $perfmon->GetErrorText();                              
    
36.                   print "Failed to get the counter data!\n",
    
37.                         $err, "\n";
    
38.                   }
    
39.                   my $freemem = $perfmon->GetCounterValue(
    
40.                         "Memory","Available MBytes",
    
41.                         -1);
    
42.                          if($freemem > -1)
    
43.                   {
    
44.                   print "Available Memory = [$freemem]MB\n";
    
45.                   }
    
46.                   else
    
47.                   {
    
48.                   $err = $perfmon->GetErrorText();                              
    
49.                   print "Failed to get the counter data!\n",
    
50.                         $err, "\n";
    
51.                   }
    
52.             }
    
53.             else
    
54.             {
    
55.                   $err = $perfmon->GetErrorText();
    
56.                   print "Failed to collect the perf data!\n",
    
57.                         $err, "\n";
    
58.             }
    
59.       }
    
60.       else
    
61.       {
    
62.             $err = $perfmon->GetErrorText();
    
63.             print "Failed to add the counter!\n", $err, "\n";
    
64.       }
    
65.   }
    
66.   else
    
67.   {                             
    
68.       print "Failed to create the perf object!\n";
    
69. }
    

复制代码

mouse.rice

有人帮解答下不，不要沉，呵呵。

laputa73

不是找不到，而是运行报错了
要看其他的错误信息

mouse.rice

谁方便在XP下跑一下，看看是否一样的问题。不知道哪里出问题了。

ulmer

[ 本帖最后由 ulmer 于 2012-11-09 21:15 编辑 ]

改用Win32::PerfLib!!