#!/usr/bin/perl

unless (-d "data") { system "mkdir data"; }
unless (-d "data/depth") { system "mkdir data/depth"; }

open(IN, "/ddn/gs1/home/grimmsa/pwade/emartin/SNAPChIP-K9-K27-May2021/normal_unified_v2-Nof21/datalist.all.txt");
while (<IN>) {
  chomp $_; ($id, $homerpkbed, $sfbam) = split/\t/, $_;
  $bw = $sfbam; $bw =~ s/\.bam/\.norm10M\.bigWig/;
  @ar = split/\//, $bw;
  next if (-e "data/depth/$ar[$#ar]");
  print "cp $bw data/depth &\n";
}
close(IN);