my @header;
my %genes;
+my %aliases;
while (<$fh>) {
chomp;
my @r = split /\t/;
my %r;
@r{@header} = @r;
$genes{$r{symbol}} = $r{name};
+ my $alias = $r{alias_symbol};
+ $alias =~ s/"//g;
+ my @aliases = split /\|/,$alias;
+ $aliases{@aliases} = ($r{name}) x @aliases;
}
for (@ARGV) {
my $gene = $_;
my $name = $genes{$gene};
+ if (not defined $name) {
+ $gene = $aliases{$gene};
+ next unless defined $gene;
+ $name = $genes{$gene};
+ }
print '\DeclareAcronym{'.
$gene.'}{short=\href{http://www.genenames.org/cgi-bin/gene_symbol_report?match='.
$gene.'}{'.$gene.'},long={'.$name.