История изменений

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.

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

ok@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

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.

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