pack("C",0x61).pack("C",0x62)...を省略

$_=pack("C",0x61).pack("C",0x62).pack("C",0x68)...
こういったバイナリ文字列をもっと簡単に$_=0x61.0x62.0x68のように書けませんか？
$_=0x61.0x62.0x68ではうまくいきませんでした。

No.3 ベストアンサー 回答者： edualr 回答日時： 2003/12/25 16:35

1行でできます。

$_=pack("C*",0x61,0x62,0x68);

参考URL：http://polaris.isc.nipr.ac.jp/~yama/jare43/tohoh …

この回答へのお礼

助かりました。変なのがついてたので。

お礼日時：2003/12/26 00:25

No.4 回答者： leaz024 回答日時： 2003/12/25 19:26

$_ = "\x61\x62\x68";

でいいような気も。

No.2 回答者： tatsu99 回答日時： 2003/12/25 13:02

１行では出来ませんが

$moji = "4142313261";
$data = pack("H" . length ($moji),$moji);
ではどうでしょうか。
print "<$data>\n";
で結果を確認して下さい

No.1 回答者： feininger 回答日時： 2003/12/25 09:40

例えば↓とか、

print chr(0x61).chr(0x62).chr(0x63);

長いバイナリなら 0x も省略して↓ではどうでしょう。
@str = ('61','62','63');
foreach (@str) {print pack('C',hex($_));}

生バイナリなら binmode STDOUT なども指定する必要があるかも。