Perl 펄, 8진수를 10진수로 변환 출력, 팔진수 십진수 변환 함수 oct

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

  my $temp;

  ########################################
  # 팔진수를 십진수로 변환 출력하기
  ########################################

  # "8진수 142"를 "십진수 98"로 변환 출력
  $temp = oct(142);
  print "10진수: ", $temp, "\n";
  # 출력 결과: 10진수: 98

  # 8진수 142를 십진수 98로 변환 출력
  # 앞에 숫자 제로(0)를 붙이면 "8진수 문자열 상수"가 됨
  print "10진수: ", oct("0142"), "\n";
  # 출력 결과: 10진수: 98

  # printf에서 팔진수를 십진수로 출력
  printf("%d\n", 0142);
  # 출력 결과: 98



  ########################################
  # 십진수를 팔진수로 변환 출력하기
  ########################################

  # "십진수 98"을 "8진수 142"로 변환 출력
  # "퍼센트 기호 + 소문자o (오)"라는 포맷 사용
  printf("8진수: %o\n", 98);
  # 출력 결과: 8진수: 142

  # %#o 이렇게 샤프 기호를 추가하면, 팔진수 앞에 제로(0)가 자동으로 붙음
  printf("8진수: %#o\n", 98);
  # 출력 결과: 8진수: 0142

  # 화면 출력이 아닌, 변환 후 변수에 대입
  $temp = sprintf("%#o", 98);
  print $temp, "\n";
  # 출력 결과: 0142