Perl 펄] 헥사 값을 문자열로 변환 출력 함수; Hex to ASCII String

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


  # "Apple"이라는 문자열의 헥사 값 정의
  my $hex = "41 70 70 6C 65";

  print hexToString($hex);
  # 출력 결과: Apple



  print "\n\n"; # 편의상 줄바꿈



  # "0x"라는 접두어가 붙어 있어도 됩니다.
  $hex = "0x41 0x70 0x70 0x6C 0x65";

  print hexToString($hex);
  # 출력 결과: Apple




sub hexToString {
  my @a = split(/\s/, $_[0]); # 공백으로 구분된 헥사 값들을 분리하여 배열로
  my $result = "";

  foreach (@a) {
    $result .= chr(hex($_));
  }
  return $result;
}