basicfilemunge

use v6;

sub MAIN ( Str :$mapfile!, Str :$patfile!, Str :$outfile! ) {
  say "mapfile: $mapfile";
  say "patfile: $patfile";
  say "outfile: $outfile";
# Read Channel Map
  my $MFH = open "$mapfile", :r;
  for $MFH.lines -> $line {
  }
  $MFH.close;
# Develop list of QDR channels
# Read pattern / vectors, 4 at a time and convert to QDR, print out
  my $PFH = open "$patfile", :r;
  my $OFH = open "$outfile", :w;
  for $PFH.lines -> $line {
    $OFH.say($line);
  }
  $PFH.close;
  $OFH.close;
}