【Perl 】初心者コーナーPart5
460 ：名無しさん＠お腹いっぱい。：
文字か、アスキーコードを取り出したいのですが、
Perlでは、難しいのでしょうか。
C言語の場合（なにも考えなくてもいい・・・）
int asciicode = 'A'; /* asciicode = 0x65; */
Perl の場合（仮定）
$str = "A";
$asciicode = getAsciiCode( $str); # asciicode = 65;
この getAsciiCode関数が欲しい・・。
my $val = unpack('H2','A');
とした場合、返ってくるのは "41" ですね。近いんですけど、
これは１６進数だから、なんとかして１０進数に変換しなければいけない・・。
Perlでは、難しいのでしょうか。
C言語の場合（なにも考えなくてもいい・・・）
int asciicode = 'A'; /* asciicode = 0x65; */
Perl の場合（仮定）
$str = "A";
$asciicode = getAsciiCode( $str); # asciicode = 65;
この getAsciiCode関数が欲しい・・。
my $val = unpack('H2','A');
とした場合、返ってくるのは "41" ですね。近いんですけど、
これは１６進数だから、なんとかして１０進数に変換しなければいけない・・。
|
|
|