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

質問

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

回答No.3

edualr · ベストアンサー

1行でできます。
$_=pack("C*",0x61,0x62,0x68);

参考URL：

http://polaris.isc.nipr.ac.jp/~yama/jare43/tohoho/wwwperl2.htm#pack

お礼

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

回答No.4

leaz024

$_ = "\x61\x62\x68";
でいいような気も。

回答No.2

tatsu99

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

回答No.1

feininger

例えば↓とか、
print chr(0x61).chr(0x62).chr(0x63);

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

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