Исправление disarmer, (текущая версия) :
Это да, я вообще считаю cpu/ядра/потоки так:
% perl -nE 'chomp;if(m/(.*?)\s*:\s*(.+)?$/){$_{$1=~y/ /_/r}=$2;next}$hv//=" virtualized" if $_{flags}=~m/hypervisor/;$k=sprintf"%i.%s x%i/%i",$_{physical_id}//$c++,$_{model_name},$_{cpu_cores}//1,$_{siblings}//1;$k=~s/ +/ /g;$t=$k=~s/^\d+\.//r;next if$h{$k}++;$t{$t}++;END{say join("\t+\t",map {"$t{$_}x $_"}sort keys %t),$hv}' /proc/cpuinfo
1x AMD FX(tm)-8300 Eight-Core Processor x4/8
Исходная версия disarmer, :
Это да, я вообще считаю cpu/ядра/потоки так:
% perl -nE 'chomp;if(m/(.*?)\s*:\s*(.+)?$/){$_{$1=~y/ /_/r}=$2;next}$hv//=" virtualized" if $_{flags}=~m/hypervisor/;$k=sprintf"%i.%s x%i/%i",$_{physical_id}//$c++,$_{model_name},$_{cpu_cores}//1,$_{siblings}//1;$k=~s/ +/ /g;$t=$k=~s/^\d+\.//r;next if$h{$k}++;$t{$t}++;END{say join("\t+\t",map {"$t{$_}x $_"}sort keys %t),$hv}' /proc/cpuinfo
1x AMD FX(tm)-8300 Eight-Core Processor x4/8