一个问题

[world_all]

my $cu;
$file_open = "<jis0208.txt";
if (!open(FILE_IN, $file_open)) {
printf("File open error.\n");
exit(1);
}

while ($s = <FILE_IN>) {
if ($s =~ /^#/) {next;}

$cj = pack("H4", substr($s, 9, 4));
}
我想知道如果在一次循环中, substr($s, 9, 4)返回的内容为ab/, 则$cj的内容是多少?
(因为我没有安装这个编译环境,所以没有结果).

[iambic]

我试了下，应该是AB F0。