Help for this page

Select Code to Download

Select or download this

$packed = pack 'n/(n/a*)', 1..9;;

@array = unpack 'C*', $packed;;

print join ', ' , @array;;