#!/usr/bin/perl

$txt = "14apr2025";

open(OUT, ">track_info.$txt.txt");

@files = split/\n/, `ls -1 *.$txt.bigBed`;
foreach $f (@files) {
  $ff = $f; $ff =~ s/\.$txt//;
  system "cp $f $ff";
  @arF = split/\_|\./, $f; $stage = $arF[1];
  print OUT "track type=bigBed name=\"$stage NDRs\" db=mm10 visibility=dense bigDataUrl=https://snpinfo.niehs.nih.gov/ucscview/yaoH/chenyy/iscCOOL/$ff\n";
}
close(OUT);