まただよ…ビット演算子

今回は十分な鍛錬と計算（一部誤ってやりなおしましたが）を積んできたので、早く行けるかもしれません。

とりあえず、定番のソースコードから

#!/usr/bin/perl

use strict ;

my($int_a,$int) ;

$int_a = 41 ;

$int = $int_a & 10 ;

print "Content-type:text/html; charset=EUC-JP\n\n" ;

print $int ;

今回は「４１」という値と「１０」とのアンド演算を行っています。

では、「また？」と言われそうですが下の表を見てください

＊	32	16	8	4	2	1
41	1	0	1	0	0	1
10	0	0	1	0	1	0
計	0	0	1	0	0	0

これは「４１」と「１０」の2進数の値とアンド演算した結果です、計がアンド演算した結果です。

見てほしいのは8のとこです、「４１」のところと「１０」のところと比べてみてください。

両方とも「１」です、そして「計」のところも見てください。

「１」です、これは何回書けばいいのか…

両方が「１」だった時だけ…「１」になります。

このソースコードだと、8と出力されます