perl 질문이요- 진수변환

kkosu의 이미지

안녕하세요
perl 16진수를 2진수로 변환하고 싶은데요

우선 데이터 파일을 읽으면

ㄱ ㄴ ㄷ ㄹ ㅁ ㅂ ㅅ ㅇ ㅈ ㅊ
.. .. .. .. .. . .. .. .
.. .. . .. .. ...

이런식으로 1만개의 라인이 있다고 가정할 경우

Q. ㄷ, ㅁ, ㅂ, ㅇ 만 16진수의 데이터이고 나머지는 2진수면,
나머지는 두고 ㄷ, ㅁ, ㅂ, ㅇ 의 데이터만 2진수로 변환하고 싶습니다.ㅜ
아 그리고 16진수의 데이터인데 0x.. 이런 데이터가 아니라
그냥 02F, 3E 이런식으로 표현되어있습니다.
이건 그냥 hex("AB"); 뭐 이런거 쓰면 될 듯한데요 ㅠ

많이 어려울 것 같지는 않은 느낌인데
초보라 그런지 무지 안되네요ㅠ
도와주시면 감사하겠습니다.

amorette의 이미지

잘 안된다고 말씀하신 작성된 스크립트를 보여주세요.

raymundo의 이미지

말씀하신대로 hex 로 10진수로 바꾸고 다시 sprintf로 2진수로 바꾸세요

my $hex = "02F";
my $bin = sprintf("%b", hex($hex));

좋은 하루 되세요!