Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
use strict; 
...
print " data: $fragment\n";
print " type: $type\n";
print " next record lenth pos: $nextpos\n";

Select or download this

 string: 0004$ADAM0002*330005LTESTL0005STESTS0005JTESTJ0005ZTESTZ
 1st data length: 0004
 data: ADAM
 type: $
 next record lenth pos: 9