Help for this page

Select Code to Download


  1. or download this
    
use strict;
...

close $inFH or die qq{close: < $inFile: $!\n};
close $outFH or die qq{close: > $outFile: $!\n};
  2. or download this
    30xx|000009925000194653|00000000000000|20081031|02510|00000005445363|0
+1|F|0207|00|||+0005655,00|||+0000000000000,00
30xx|4150010003502043|CARDS|20081031|MP415001|00000024265698|01|F|1804
+|00|||+0000000000000,00|||+0000000000000,00