컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post Perl 펄] 이진 문자열 여부 판단, 문자열을 헥사로 출력; Binary String t...슈나이더 UV 필터; Schneider B+W 007 NEUTRAL MRC 52mm 구매기...카시오 계산기 붙은 시계 실물 사진; Casio Calculator Watch DBC32-...Nikon D40X 구매기; 니콘 DSLR D40 의 고화소 버전계산기 시계(전자계산기 달린 손목시계) 구매기; Calculator Watch CasioPerl 펄] 한글 문자열 1글자씩 처리, 유니코드(UTF-8) 배열로 변환; Unicod...Perl 펄] unpack pack 함수, 문자열을 1글자씩 처리, 배열로 변환Perl 펄] 바이트 배열을, 이진 문자열로 변환 방법; Bytes to Binary Ar...Perl 펄] Image::ExifTool::Exif 모듈 다운로드 설치법Perl 펄] EXIF 정보 읽기, 디카 촬영 정보 출력 소스; Exif Info Dump...

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

Monday, May 14, 2007

예를 들어, "41 70 70 6C 65" 또는 "0x41 0x70 0x70 0x6C 0x65" 이런 헥사 값으로 이루어진 문자열이 있을 때, 이것을 "진짜 아스키 문자열"로 변환하는 함수입니다. 참고로, 위의 헥사 값을 아스키 문자열로 변환하면 "Apple" 이라는 단어가 됩니다.

헥사(Hex) 값을, 아스키 문자(문자열)로 변경 예제


파일명: example.pl
#!/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;
}



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

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top