Skip to content

Changes

Page history
Updated Example Perl Client (markdown) authored by Magali Ruffier's avatar Magali Ruffier
Hide whitespace changes
Inline Side-by-side
Example-Perl-Client.md
View page @ 6c1e438d
......@@ -35,7 +35,7 @@ sub run {
$symbol ||= 'BRAF';
my $variants = get_variants($species, $symbol);
foreach my $v (@{$variants}) {
printf("%s:%d-%d:%d ==> %s (%s)\n", $v->{seq_region_name}, $v->{start}, $v->{end}, $v->{strand}, $v->{ID}, $v->{consequence_type});
printf("%s:%d-%d:%d ==> %s (%s)\n", $v->{seq_region_name}, $v->{start}, $v->{end}, $v->{strand}, $v->{id}, $v->{consequence_type});
}
return;
}
......@@ -138,7 +138,7 @@ sub run {
$symbol ||= 'BRAF';
my $variants = get_variants($species, $symbol);
foreach my $v (@{$variants}) {
printf("%s:%d-%d:%d ==> %s (%s)\n", $v->{seq_region_name}, $v->{start}, $v->{end}, $v->{strand}, $v->{ID}, $v->{consequence_type});
printf("%s:%d-%d:%d ==> %s (%s)\n", $v->{seq_region_name}, $v->{start}, $v->{end}, $v->{strand}, $v->{id}, $v->{consequence_type});
}
return;
}
......