#!/usr/bin/perl -w
use strict;
   my %codes;
   my $cfile = shift @ARGV;
   my $bfile = shift @ARGV;
   open(CODI, "< $cfile");
   while (<CODI>) {
     my ($id, $val);
     chomp;
     ($id, $val) = split /\s+/o, $_;
     $id =~ s/\|/\_/og;
     $codes{$id} = $val;
   };
   close(CODI);
   open(GFF, "< $bfile");
   while (<GFF>) {
     my @f;
     next if /^#/o;
     @f = split /\s+/o, $_;
     # if (defined($codes{$f[8]})) { $f[2] = $f[2].$codes{$f[8]}; };
     if (defined($codes{$f[8]})) { $f[2] = "est".$codes{$f[8]}; };
     print STDOUT join("\t", @f)."\n";
   };
   close(GFF);
   # patrons.txt AC090953.blast.est.fixed.spliced.gff  > AC090953.blastout.fixed.ps #