運行程序時捕獲渦輪速度

Question

我想創建一個自動化程序來捕捉程序運行時CPU的渦輪速度。

我的自動化腳本應該使用perl語言。

我曾嘗試使用：

system("script mytest.txt"); 
system("./turbostat"); 

當我執行這個程序，只有腳本行工作，但不turbostat。

有人可以通過我可以捕捉turbospeed的任何方式？

Answer 1

看看Sys::Info::Device::CPU模塊。

提要

use Sys::Info; 
    use Sys::Info::Constants qw(:device_cpu); 
    my $info = Sys::Info->new; 
    my $cpu = $info->device(CPU => %options); 

    printf "CPU: %s\n", scalar($cpu->identify) || 'N/A'; 
    printf "CPU speed is %s MHz\n", $cpu->speed || 'N/A'; 
    printf "There are %d CPUs\n" , $cpu->count || 1; 
    printf "CPU load: %s\n"  , $cpu->load || 0;