Perl查询Win32CPU使用率的问题

hhs66317

为了获取CPU的使用百分比
我在CPAN上找了个模块Win32::SystemInfo::CpuUsage
奇怪的是，它获取到的数据会有负数，为什么呢
百分比会存在负的情况么
还是我用错方法了

1. 
   
2. use Win32::SystemInfo::CpuUsage;
   
3. my $intvl = 1000;     # in milliseconds
   
4. my $usage = Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
   
5. my $i = 0;
   
6. while(1){
   
7.       $i++;
   
8.       $usage = Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
   
9.       print  "$i: cpu usage \t %$usage\n";
   
10. }
    

复制代码

hhs66317

额，没有人遇到这个问题么？
以下是我使用这个获取到的CPU数据的一部分

1. 40008: cpu usage         %1
   
2. 40009: cpu usage         %4
   
3. 40010: cpu usage         %0
   
4. 40011: cpu usage         %3
   
5. 40012: cpu usage         %15
   
6. 40013: cpu usage         %-5
   
7. 40014: cpu usage         %8
   
8. 40015: cpu usage         %16
   
9. 40016: cpu usage         %3
   
10. 40017: cpu usage         %9
    
11. 40018: cpu usage         %9
    
12. 40019: cpu usage         %3
    
13. 40020: cpu usage         %13
    
14. 40021: cpu usage         %0
    
15. 40022: cpu usage         %2
    
16. 40023: cpu usage         %18
    
17. 40024: cpu usage         %2
    
18. 40025: cpu usage         %9
    
19. 40026: cpu usage         %5
    
20. 40027: cpu usage         %8
    
21. 40028: cpu usage         %4
    
22. 40029: cpu usage         %10
    
23. 40030: cpu usage         %13
    
24. 40031: cpu usage         %3

复制代码

hhs66317

睡觉前再来看看！
还是没人搭理我