gtf_to_tbl<-function(gtf_path){
 library(data.table)
  message("read gtf")
  gtf<-fread(gtf_path) #14 146, 19 186, 10 161
  gtf<-gtf[V3 %in% "exon"]

  gtf$exon_len<-gtf$V5-gtf$V4+1 # 1-based
  message("split column")
  gtf[,c(paste0("vv",rep(1:19))):=tstrsplit(V9, ";", fixed=TRUE)]
  gtf<-gtf[,c(1:19),with=F]
  message("add column name ")
  names(gtf)[11:19]<-as.character(sapply(gtf[1,11:19,with=FALSE], function(x) gsub(" \".*\"| ","",x)))

  # sapply(gtf[,c(11:19),with=F],function(x) gsub("gene_id|\"|transcript_id|havana_.* |gene_type|gene_status|transcript_.* |exon_id |exon_number | |tag","",x))
  # gsub("gene_id|\"|transcript_id|havana_.* |gene_type|gene_status|transcript_.* |exon_id |exon_number | |tag","",strsplit(gtf$V9[1],";")[[1]])

  message("remve unwnated strings")
  gtf[,11:19:=mclapply(.SD,function(x) gsub("gene_id|\"|transcript_id|havana_.* |gene_type|gene_type|gene_name|gene_status|transcript_.* |exon_id |exon_number | |tag","",x),mc.cores = 40),.SDcols = 11:19]
  gtf$V9<-NULL
  #gtf$transcript_id<-gsub("\\..*","",gtf$transcript_id)
  #gtf$gene_id<-gsub("\\..*","",gtf$gene_id)
  gtf<-unique(gtf[,c("gene_id","transcript_id","gene_name"),with=F])
  gtf<-melt(gtf,id="gene_name")
  gtf$version<-stringr::str_extract(basename(gtf_path),"[0-9]+")
  message("fninsh")
  return(gtf)
}