perlで16進のデータをたくさんセットするには？

質問

perlでテストデータを作成したいのですが、やり方がわからず困っています。

やりたいことは、文字変換テーブルがうまく作成できているかを試すための、テストデータ作成で、データとしては16進でx'97A0'からx'9EDF'までの２バイト文字コードのデータをひたすら打ち込んだ、テキストデータを作成することです。

単純にHEXのデータx'97a1'をunpackで１０進化したデータに対して、１を足しこみ、それをPACKし直してと言うことをしてみたのですが、結果はx'97a1'で、x'97a2'にはなってくれませんでした。
１６進で２バイト文字コードを連番で自動で作るようなことはできないのでしょうか？
作成するテストデータが多いため、できれば自動でしたいと考えたのですが・・・。

試してみたサンプルを以下に記します。
どなたかお知恵をお貸しください。
よろしくお願いいたします。
--------------------------------------------
$data0 = "97a1"
$data1 = pack "H4",$data0;
$ctrl = pack "H2","0d";
for ($i = 0; $i < 10; $i++) {
　$data2 = unpack "H4",$data1 ;
　$data5 = $data2++;
　$data6 = pack "H4",$data5 ;
　print NEWFILE $data6,$ctrl;
}

回答No.3

_--_1l1_1_ · ベストアンサー

たぶん、質問者さんは pack の意味を取り違えているようです。

あっているかわかんないけど、

my $start = 0x97a1;
my $end = 0x9edf;

my $file = shift || 'tmp.txt';
open my $fh, '>', $file or die "$!:$file";
binmode $fh;

for my $num ( $start .. $end ) {
my $bin = pack 'n', $num + 1;
print $fh $bin;
}
close $fh or die "$!:$file";

エンディアンが逆なら、
my $bin = pack 'v', $num + 1;
として下さい。

お礼

どうもpack自体を理解できていないのが正直なところです。
サンプルコードも付けていただき感謝感謝です。
理解できないところもあるので、調べつつこれで試してみたいと思います。
ありがとうございました。

回答No.2

zxcv0000

"97a1" や "0d" では無く、 0x97a1 や 0x0d と書きましょう。

セミコロン漏れも直しましょう。

$data2++ と書くのはまずいでしょう。

他にも問題が出そうですが、とりあえずそこだけ。

お礼

コーディング不備のご指摘ありがとうございます。
＋＋は駄目なのですね。
＋１にすると足しこみしてくれました。
どういう違いがあるか、また調べてみたいと思います。

回答No.1

sakusaker7

"97a1"から"97a2"にしたいという話なら、
pack/unpackじゃなくて、hexで整数化したのに加算して、
それをprintfを使って十六進表記で出力すればいいんじゃないでしょうか

お礼

最初思いついたのがこの方法だったのですが、HEXコードがそのまま文字列として張り付いてしまいうまくいきませんでした。が、教えていただいたprintfでHEX出力をpackしたものを出力したらできました。
ありがとうございました。