新石器Wiki

近年はシリコン(石)から進化した便利なもので溢れる時代。そんな気になった事や試した事など記す。

ユーザ用ツール

サイト用ツール

現在位置: 新石器Wiki » プログラミング » Linuxプログラミング » 【Ubuntu/Linux】CPUコアのシールド分離
トレース: • 【Ubuntu/Linux】CPUコアのシールド分離 • Windowsのバージョンを取得する
programing:linux-programing:linux-cpu-core-shield


差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン		前のリビジョン
programing:linux-programing:linux-cpu-core-shield [2022/10/21 07:06] – yokoprograming:linux-programing:linux-cpu-core-shield [2022/10/25 04:09] (現在) – [CPU Affinityの一覧表示] yoko
行 179: 行 179:
  10   5  85   0   0:  6   0  94   0   0:100   0   0   0   0:  0   1  99   0   0  10   5  85   0   0:  6   0  94   0   0:100   0   0   0   0:  0   1  99   0   0
  10   7  83   0   0:  4   0  96   0   0:100   0   0   0   0:  0   0 100   0   0  10   7  83   0   0:  4   0  96   0   0:100   0   0   0   0:  0   0 100   0   0
 +</code>
 +### CPU Affinityの一覧表示
 +全プロセスのCPU Affinityを一覧表示するPerlスクリプト。
 +
 +<code perl cpu_pslist.pl>
 +#!/usr/bin/perl
 +#
 +# CPU affinityの一覧を表示する。
 +#
 +
 +use strict;
 +use warnings;
 +
 +my @result;
 +my $mode = 0;
 +
 +if (@ARGV >= 1) {
 +    if ($ARGV[0] eq "tree") {
 + $mode = 1;
 +    }
 +}
 +
 +if ($mode == 0) {
 +    @result = `ps aux`;
 +}
 +else {
 +    @result = `ps auxf`;
 +}
 +
 +foreach my $line(@result)
 +{
 +    my @a = split(/\s+/, $line); # 複数の空白や改行でで分割
 +
 +    if ($a[1] eq "PID") {
 + print "AFFIN " . $line;
 +    }
 +    else {
 + my $affi = `taskset -pc $a[1] 2>&1`; # エラー出力は標準へ
 + if ($? == 0) { # コマンド実行のリターンコード
 +     my @b = split(/\s+/, $affi); # 複数の空白や改行で分割
 +     my $str = sprintf("%-6s", $b[$#b]); # CPU affinity
 +     print $str . $line;
 + }
 +    }
 +}
 </code> </code>
  
programing/linux-programing/linux-cpu-core-shield.1666335999.txt.gz · 最終更新: by yoko