3 # ------------------------------------------------
\r
4 # Copyright 2014 AT&T Intellectual Property
\r
5 # Licensed under the Apache License, Version 2.0 (the "License");
\r
6 # you may not use this file except in compliance with the License.
\r
7 # You may obtain a copy of the License at
\r
9 # http://www.apache.org/licenses/LICENSE-2.0
\r
11 # Unless required by applicable law or agreed to in writing, software
\r
12 # distributed under the License is distributed on an "AS IS" BASIS,
\r
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
\r
14 # See the License for the specific language governing permissions and
\r
15 # limitations under the License.
\r
16 # -------------------------------------------
\r
18 $infl = "/proc/cpuinfo";
\r
19 open I,$infl or die "Can't open $infl, exiting.\n";
\r
27 @flds = split /:/,$line;
\r
28 if(scalar(@flds)==2){
\r
29 if($flds[0] =~ /processor/){
\r
30 if($curr_proc != -1){
\r
31 print "$curr_proc,$curr_socket,$curr_coreid\n";
\r
33 $curr_proc = int($flds[1]);
\r
35 if($flds[0] =~ /physical id/){
\r
36 $curr_socket = int($flds[1]);
\r
38 if($flds[0] =~ /core id/){
\r
39 $curr_coreid = int($flds[1]);
\r
43 if($curr_proc != -1){
\r
44 print "$curr_proc,$curr_socket,$curr_coreid\n";
\r