my $gtf=$ARGV[0]; chomp $gtf;

my %hash;
open(F,"$gtf");
while(my $data = <F>)
{
	chomp $data;
	my @arr=split(/\t/, $data);
	my @arrsplit=split(/\; /, $arr[8]);
	my $transcriptid; my $gene; my $geneid;
	foreach my $m(@arrsplit)
	{
		if($m =~ /transcript_id/)
		{

			my @arrsplit_trans_temp=split(/\s/, $m);
			my @arrsplit_trans_temp1=split(/\"/, $arrsplit_trans_temp[1]);
			$transcriptid = $arrsplit_trans_temp1[1];
		}
		if($m =~ /gene_name/)
		{
			my @arrsplit_trans_temp=split(/\s/, $m);
			my @arrsplit_trans_temp1=split(/\"/, $arrsplit_trans_temp[1]);
			$gene = $arrsplit_trans_temp1[1];
		}
		if($m =~ /gene_id/)
		{
			my @arrsplit_trans_temp=split(/\s/, $m);
			my @arrsplit_trans_temp1=split(/\"/, $arrsplit_trans_temp[1]);
			$geneid = $arrsplit_trans_temp1[1];
		}
	}
	if($gene eq "")
	{
		$hash{$transcriptid}=$geneid;
	}
	else
	{
		$hash{$transcriptid}=$geneid;
	}
}
close F;

open(OUT,">Trop-v10_Map.txt");
print OUT "TranscriptId\tGeneSym\n";
foreach my $m(keys %hash)
{
	print OUT "$m\t$hash{$m}\n";
	print "$m\t$hash{$m}\n";
}
close OUT;