Help for this page

Select Code to Download


  1. or download this
    my( $z, $zEnd, $i, $iEnd )= unpack "z.I.", $buf;
    # $zEnd == length($z)
    ...
    my $buf= pack "z.I.", $z, my $zEnd, $i, my $iEnd;
    # $zEnd == length($z)
    # $iEnd == 4 + $zEnd