cat <(cut -f 1,2 samples.tsv) Human.SRA_curated_predict.meta.tsv | perl -ne 'chomp; $f=$_; @f=split(/\t/,$f); if(scalar(@f) == 2) { $h{$f[1]}=$f[0]; next; } $rid=$h{$f[0]}; $temp=$f[2]; $f[2]=$f[1]; $f[1]=$temp; print "$rid\t".join("\t",@f)."\n";'

cat samples.tsv.studies | perl -ne 'chomp; print "/bin/bash -x study_metadata_layout.sh $_ human sra Human.SRA_curated_predict.meta.w_rids.tsv > runs/$_.run 2>&1\n";' > study_metadata_create.jobs

cat samples.tsv.studies | perl -ne 'chomp; print "/bin/bash -x study_metadata_layout.sh $_ human sra Human.SRA_curated_predict.meta.w_rids.rtypes.tsv > runs/$_.run 2>&1\n";' > study_metadata_create.jobs2

cat <(pcat gtex.recount_project.gz | head -1) <(fgrep -f samples.edited2.tsv.diseases samples.tsv | cut -f 1,3,4 | perl -ne 'chomp; $f=$_; ($rid,$run,$study)=split(/\t/,$f); print "$f\t$study\tHomo sapiens\tdata_sources/gtex\tdata_sources/gtex\t2019-11-01\n";') | gzip > gtex.recount_project.gz.1