Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

local $Data::Dumper::Useqq = 1;
print Data::Dumper->Dump([$gene_name], ['gene_name']);
  2. or download this
    use Data::Dumper;

...
else {
  die Data::Dumper->Dump([$gene_name, \%fastas], ['gene_name', 'fastas
+']);
}
  3. or download this
    use Data::Dumper;

...
  or die Data::Dumper->Dump([$gene_name, \%fastas], ['gene_name', 'fas
+tas']);

$sequence = $fastas{$gene_name};