Hello,
I'm a new user of Perl, and I have a list of symbol gene (some symbols are approaved but not all), and I need to retrieve HGNC Id and HGNC Symbol Approaved.
I found this module, and i think it's perfect. But I don't manage to use it...
I think it's simple, but...
My script is:
#!/usr/bin/perl -w
#use CGI qw/:standard/;
#use DBI;
use strict;
use warnings;
use WWW::Search;
my $search = new WWW::Search('HGNC');
my @hgnc_ids = [1097, 1245, 12589];
$search->native_query( \@hgnc_ids );
while(my $prot = $search->next_result ) {
print "Approved symbol: %s\n", $prot->{approved_symbol};
print "Approved name: %s\n", $prot->{approved_name};
print "HGNC ID: %s\n", $prot->{hgnc_id};
}
when i execute it, no error, but nothing print, no result. I don't understand.
Somebody could be help me ?
ps: sorry for my not really good english
Sarah |
