Getting CPU Utilization in BigIP

Actually, they aren't exactly the same but as I suspected your version of perl is not compiled for 64 bit integer support. The values you are printing out are the 32bit equivalents of the expected values.

 

 

I ran your numbers through some C code to make sure that the math was correct and here was the output. The first three values are your numbers, the value-32 is the (high<<32)|low cast as 32-bit unsigned longs and the value-64 is that value using 64-bit math.

 

 

=====================

 

Low: : 2207039487

 

High : 48770

 

value64 : 2207039487

 

value-32 : 2207039487

 

value-64 : 209467762065407

 

=====================

 

Low: : 943756860

 

High : 48779

 

value64 : 943767231

 

value-32 : 943767231

 

value-64 : 209505153488444

 

=====================

 

Low: : 1132381115

 

High : 48788

 

value64 : 1132396479

 

value-32 : 1132396479

 

value-64 : 209543996818363

 

=====================

 

Low: : 866297581

 

High : 48797

 

value64 : 866303741

 

value-32 : 866303741

 

value-64 : 209582385440493

 

=====================

 

Low: : 3267325626

 

High : 48805

 

value64 : 3267362495

 

value-32 : 3267362495

 

value-64 : 209619146206906

 

 

You can test if your build of perl supports 64 bit integers with the info from the Config module:

 

 

 use Config; 
 print "use64bitint: $Config{use64bitint}\n"; 
 print "longsize: $Config{longsize}\n"; 
 ($Config{use64bitint} eq 'define' || $Config{longsize} >= 😎 && 
   print "quads\n";

 

 

So, where does that leave you? You can either re-compile your version of perl to include quad (64-bit) support. Or, I'm sure there is a way to write a routing that takes the high and low values and builds a string representation of the 64 bit integer. Anyone got that routine handy? I don't...

 

 

-Joe