Perl 펄 비트 연산] 특정 비트 읽기, 1비트씩 추출; Get a Bit, Read a Bit

#!/usr/bin/perl
use strict; use warnings;

  my $num = 24761;
  printf("%016b\n", $num); # 2진수로 출력
  # 출력 결과: 0110000010111001


  # 0번 비트 (맨 우측 비트) 읽기
  printf("%d\n", getAbit($num, 0));
  # 1


  # 1번 비트 (맨 우측에서 2번째 비트) 읽기
  printf("%d\n", getAbit($num, 1));
  # 0



  # $num을 1비트씩 읽어, 2진수로 출력하기
  print "\n[ ";
  for (my $i = 15; $i >= 0; $i--) {
    printf("%d", getAbit($num, $i));
  }
  print " ]\n";
  # [ 0110000010111001 ]



# 특정 정수에서, 몇번째 비트만 읽어서 반환하는 함수
sub getAbit { # getbit()
  return ($_[0] & (1 << $_[1])) >> $_[1];
}