[ CnUnix ] in KIDS
글 쓴 이(By): guest (guest) <211.47.122.207>
날 짜 (Date): 2002년 2월 21일 목요일 오후 04시 56분 46초
제 목(Title): [q] 숫자 <-> 문자.


perl 에서요.
6자리 숫자 012345 를 ascii 값 01 23 45 의 문자 세개로 
바꾸려면 어떻게 해야 하나요?
그 반대는요?

그리고
ascii 값 01 02 03 인 문자를 129 130 131 인 문자 세개로 
바꾸는 건 어떻게 합니까?
 
감사합니다. :)


[ CnUnix ] in KIDS
글 쓴 이(By): poopoo (고등룸펜)
날 짜 (Date): 2002년 2월 21일 목요일 오후 06시 26분 38초
제 목(Title): Re: [q] 숫자 <-> 문자.


pack, unpack이었던 것 같은데.
자세한 건 매뉴얼 보세요...


[ CnUnix ] in KIDS
글 쓴 이(By): terzeron (microkid)
날 짜 (Date): 2002년 2월 22일 금요일 오전 09시 20분 46초
제 목(Title): Re: [q] 숫자 <-> 문자.

1. 이건 이해가 안 되는 문제네요. 숫자 012345가 어떻게 저장되어있죠?
$a = 012345;
와
$a = 12345는 다릅니다.
이러면 자릿수가 안 맞아서 문제가 모호해집니다.
$a = "012345"라고 가정하면 다음과 같이 해결할 수 있죠.
$a =~ /(\d\d)(\d\d)(\d\d)/;
$b = $1;
$c = $2;
$d = $3;

2. Perl은 문자열과 숫자를 구분하지 않으므로 숫자처럼 쓸 수 있습니다.
$a = "01";
$b = "23";
$c = "45";
$d = $a . $b . $c;      # $d = "$a$b$c"도 가능
$d++;                   # 덧셈 연산이 가능한지 테스트
print "d=$d\n";         # 012346 

3. 이건 깔끔하게 하려면 좀 어렵습니다. 
$a = "01";
$b = "02";
$c = "03";
($d, $e, $f) = map {$_ + 128} $a, $b, $c;
print "d=$d e=$e f=$f\n";

그냥 무식하게 각 문자열에다가 + 128 해줘도 됩니다. ^^