Select Code to Download

my $addr = mapFile( );
substr( $addr, 32, 4 ) = pack 'V', 1+ unpack( 'V', substr $addr, 32, 4
+ );

$s = '0123456789';;
++substr( $s, $_, 1) for 0 .. length $s;;
print $s;;

12345678911

$s = '999999999';;
++substr( $s, $_, 1) for 0 .. length $s;;
print $s;;

11111111119999

$s = chr(0) x 40;;
vec( $s, $_, 32 ) = $_ for 0 .. 9;;
...
25769803783
34359738377
0

++u32at( $_ ) for $start .. $end;
u64at( int rand 2**37 ) *= 3 for 1 .. 1e6;

my $totalX = u64ref( $headerSize + 3 * 8 );
...
$totalNet = $subTotalA + $subTotalB - $subTotalC;

$$totalNet = $$subTotalA + $$subTotalB - $$subTotalC;

#! perl -slw
use strict;
...
  LEN = 8
abdde