#!/usr/bin/perl

@gts = ("B6", "C3", "B6C3F1", "C3B6F1");
@genders = ("M", "F");
@contexts = ("CpG", "CHG", "CHH");

$bigwigDir = "/ddn/gs1/project/mousemeth/methylseq/analysis/sara/analysis_pilot_current/files_coverage";

foreach $gt (@gts) { foreach $mf (@genders) { foreach $ctxt (@contexts) {
  $xx = "$gt"."_$mf";
  unless (-e "$xx.$ctxt.mm9.methpct.validated.bigwig") {
    print "cp $bigwigDir/$xx.$ctxt.mm9.methpct.validated.bigwig . &\n";
  }
  unless (-e "$xx.$ctxt.mm9.methpct.unvalidated.bigwig") {
    print "cp $bigwigDir/$xx.$ctxt.mm9.methpct.unvalidated.bigwig . &\n";
  }
} } }