新石器Wiki

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

ユーザ用ツール

サイト用ツール

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


差分

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

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン		前のリビジョン
programing:linux-programing:linux-cpu-core-shield [2022/10/21 15:52] – [CPUに負荷をかける] yokoprograming:linux-programing:linux-cpu-core-shield [2022/10/25 13:09] (現在) – [CPU Affinityの一覧表示] yoko
行 73: 行 73:
 <code bash> <code bash>
 $ cat /proc/interrupts $ cat /proc/interrupts
 +            CPU0       CPU1       CPU2       CPU3
 +   0:         17          0          0          0  IR-IO-APIC    2-edge      timer
 +   6:          0          0          0          1  IR-IO-APIC    6-edge      ttyS2
 +   8:          0          0          1          0  IR-IO-APIC    8-edge      rtc0
 +   9:          0          5          0          0  IR-IO-APIC    9-fasteoi   acpi
 + ...
 </code> </code>
  
行 147: 行 153:
 その他 その他
 ----- -----
 +
 +### CPUに負荷をかける
 +stressコマンドで、CPUのコア#2に演算負荷をかける。
 +
 +<code bash>
 +$ taskset -c 2 stress -c 1
 +</code>
  
 ### CPU負荷状況の確認 ### CPU負荷状況の確認
行 167: 行 180:
  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> </code>
 +### CPU Affinityの一覧表示
 +全プロセスのCPU Affinityを一覧表示するPerlスクリプト。
  
-### CPUに負荷をかける +<code perl cpu_pslist.pl> 
-stressコマンドで、CPUのコア#2に演算負荷をかける。+#!/usr/bin/perl 
 +# 
 +# CPU affinityの一覧を表示する。 
 +#
  
-<code bash> +use strict; 
-$ taskset -c 2 stress -c 1+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.1666335137.txt.gz · 最終更新: 2022/10/21 15:52 by yoko