Исправление router, (текущая версия) :
На perl 5.22 эти варианты вообще не работают
ok@vk:~$ perl -e 'say $n=do { open $_,"</proc/cpuinfo"; grep {!index($_,"\n")} <$_> }'
Can't call method "say" on an undefined value at -e line 1, <$_> line 54.
ok@vk:~$ perl -e 'say $n=scalar(@{$_}=</sys/bus/cpu/devices/*>)'
Can't call method "say" on an undefined value at -e line 1.А ты честно считаешь количество ядер, или hyperthreading тоже считаешь за дополнительные ядра?
ok@vk:~$ cat /proc/cpuinfo | perl ~/Документы/scripts/cpuinfo/linux_cpuinfo.pl
1 cpu ( each has 2 cores, 2 threads ); total cores 2 ; total threads : 2ok@vk:~/Документы/scripts/cpuinfo$ cat examples/linux/proc_cpuinfo_x240-11 | ./linux_cpuinfo.pl
2 cpu ( each has 8 cores, 16 threads ); total cores 16 ; total threads : 32Кодом пугать не будут, perl golf там даже близко нет - 2 кб
Исходная версия router, :
На perl 5.22 эти варианты вообще не работают
ok@vk:~$ perl -e 'say $n=do { open $_,"</proc/cpuinfo"; grep {!index($_,"\n")} <$_> }'
Can't call method "say" on an undefined value at -e line 1, <$_> line 54.
ok@vk:~$ perl -e 'say $n=scalar(@{$_}=</sys/bus/cpu/devices/*>)'
Can't call method "say" on an undefined value at -e line 1.А ты честно считаешь количество ядер, или hyperthreading тоже считаешь за дополнительные ядра?
ok@vk:~$ cat /proc/cpuinfo | perl ~/Документы/scripts/cpuinfo/linux_cpuinfo.pl
1 cpu ( each has 2 cores, 2 threads ); total cores 2 ; total threads : 2Кодом пугать не будут, perl golf там даже близко нет - 2 кб