搞错俩, 麻利的改回来
cat loci.tracking | perl -ne '@t = split(/\t/, $_); $id1 = $t[0]; $t[4] =~ /.*?\|(.*?)\|/; $id2 = $1; print $id1 . "\t" . $id2 . "\n";' | perl /leofs/noncode/NONCODEv4/cmds/leftJoin.pl - 2 id.v4_tcons 2 | awk '{print $3 "\t" $1 ;}' | perl -ne '@t = split(/\t/, $_); chomp @t; $nId = "NONHSAT" . substr("000000", 0 , 6 - length($t[0]."") ) . $t[0]; print $t[1] . "\t" . $nId . "\n";' | perl /leofs/noncode/NONCODEv4/cmds/id_replace_tcons.pl - gtf.v4.human.lnc.1 | sed -e 's/oId .*//' > human.hg19.v4.lnc.gtf