Help for this page

Select Code to Download

Select or download this

$new  = pack 'ncC4n', 10, 10, split( '\.', '1.1.1.9' ), 30;
print unpack 'C*', $new;

0 10 10 1 1 1 9 0 30