codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
my $number = @genbank_na_acc; print $number."\n"; my $min = 0; my $max = 500; my $factory; my @subarray; while ($min < $number){ if ($max < $number){ @subarray = @genbank_na_acc[$min,$max]; } else{ @subarray = @genbank_na_acc[$min, $number-1]; } $factory = Bio::DB::EUtilities-> new(-eutil => 'esearch', -email => 'pat.boutet@gmail.com', -db => 'nucleotide', -term => join(',', @subarray), -usehistory => 'y'); $min += $max; $max += $max; } my $count = $factory -> get_count; print $count."\n"; exit;
Private
[
?
]
Run code
Submit