そうか､Perl でﾋﾞｯﾄｼﾌﾄは10進数に変換してから行うのか･･･[Perl]
(2012-02-16 07:00:11) by shinoda
< ﾍﾟｰｼﾞ移動: 1 2 >
とあるﾊﾞｲﾅﾘﾃﾞｰﾀがある｡
そのﾃﾞｰﾀは､1ﾊﾞｲﾄ(8ﾋﾞｯﾄ)を2ﾋﾞｯﾄずつに区切って､全部で60個ある装置の状態をﾍﾙｽﾃﾞｰﾀとして流してくる｡ﾃﾞｰﾀの大きさは 2ﾋﾞｯﾄ x 60装置 = 15ﾊﾞｲﾄ｡
その 2ﾋﾞｯﾄの内容は､
0(00)...NG
1(01)...WRN(警告)
2(10)...OK
という具合｡(ｶｯｺ内は 2進数)
その 1ﾊﾞｲﾄの中で､装置番号の若いものが下位ﾋﾞｯﾄにｾｯﾄされる｡
だから､4台の装置の状態が､
No.1 10(OK)
No.2 01(WRN)
No.3 10(OK)
No.4 00(NG)
となっていれば､'10011000'ではなく､下位から順にｾｯﾄしていき '00100110' となる｡16進であれば､0x26 だ｡
この情報を装置の番号順に取っていきたい｡つまり､15ﾊﾞｲﾄのﾃﾞｰﾀから1ﾊﾞｲﾄずつ抜き出して､さらにその 1ﾊﾞｲﾄの中の下位ﾋﾞｯﾄから 2ﾋﾞｯﾄずつ取っていきたい｡
'00100110' というﾃﾞｰﾀであれば､
1.下位 2ﾋﾞｯﾄだけを残す論理積計算をおこなう｡
('00000011' という 2進数と論理積を取れば､下位 2ﾋﾞｯﾄの情報だけを抜き出せる)
2.論理積の計算後､次の処理のため 2ﾋﾞｯﾄ下位にｼﾌﾄ｡
('00100110'を､2ﾋﾞｯﾄ右にｼﾌﾄして'00001001'に)
この処理を､1ﾊﾞｲﾄ分(つまり 4回)繰り返し･･･となる｡
$v1 = "\x26\xAA\x26\xAA\x26\xAA\x26\xAA\x26\xAA\x26\xAA\x26\xAA\x00"; # ﾃﾞｰﾀ 15byte(60装置分)
$v2 = 3; # 00000011
for ($i = 0; $i < 15; $i++) {
# 1byte 抜き出す
if ($v1 !~ /^(.{1})(.*)$/) {
last; # ﾃﾞｰﾀが無くなれば15byte未満でもﾙｰﾌﾟ終了
}
$v3 = $1; # 抜き出した 1byte をｾｯﾄ
$v1 = $2; # 残りは次の処理に使う
$w1 = hex(unpack "H*", $v3); # 10進数に変換
# 抜き出した 1byte の下位から 2bitずつ見ていく
for ($j = 0; $j < 4; $j++) {
$w2 = $w1; # 論理積計算用に退避
$w2 = $w2 & $v2; # 論理積
$w1 = $w1 >> 2; # 右(下位)に 2bit ｼﾌﾄ
print "$i.$j $w2\n";
}
}