$medial = int($j / 28 ) % 21+1 ;
$final = $j % 28;
- printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final));
+ printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final)) or die ("Cannot print to stdout.\n");
}
for ( $i = 0; $i < 32; $i++) {
$bit[$i]=sprintf("%02X",
- hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) );
+ hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) ) or die ("Cannot print to stdout.\n");
}
return pack("a2" x 32, @bit );