Perl 펄] 이진 문자열 여부 판단, 문자열을 헥사로 출력; Binary String to Hex

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


  # 이진 문자열 만들기
  my @bytes = ( 0x41, 0x20, 0x00, 0x01, 0x02, 0xFF ); # 이진 데이터 배열 만들기
  my $s = pack "C*", @bytes; # 이진 배열을 이진 문자열로 합치기


  # 일반 텍스트 문자열이면 그대로 출력
  # 이진 문자열이면 헥사로 출력하기
  if (isPrintableString($s)) {
    print $s, "\n";
  }
  else {
    print stringToHex($s), "\n";
  }
  # 출력 결과: 41 20 00 01 02 FF


  $s = "Apple";
  if (isPrintableString($s)) {
    print $s, "\n";
  }
  else {
    print stringToHex($s), "\n";
  }
  # Apple


  $s = "똠방";
  if (isPrintableString($s)) {
    print $s, "\n";
  }
  else {
    print stringToHex($s), "\n";
  }
  # 8C 63 B9 E6
  # 한글도 이진 문자열로 간주됨



# 문자열이 영문 키보드로 입력할 수 있는 문자들만으로
# 구성되어 있으면 참(true)을 반환
sub isPrintableString {
  my @a = unpack "C*", $_[0]; # 문자열을, 1바이트씩 분리하여 배열로 만들기

  foreach (@a) {
    next if ($_ == 0x0A || $_ == 0x0D || $_ == 0x09);
    return 0 if ($_ < 0x20 || $_ > 0x7E); # 키보드로 입력할 수 없는 문자일 경우는 거짓(false) 반환
  }

  return 1; # 그밖의 경우는 참(true) 반환
}


# 문자열을 헥사로 출력하는 함수
sub stringToHex {
  my @a = unpack "C*", $_[0]; # 문자열을, 1바이트씩 분리하여 배열로 만들기
  my $s = "";

  foreach (@a) {
    $s .= sprintf("%02X ", $_);
  }

  return $s;
}