Windows 64xで作業しているのと同じエラーが発生しました。 Seems Bio :: EnsEMBL :: Registryは私のWindowsコンピュータでは認識されません。 すべてのENSEMBL-API命令に続いて、私は最後にデバッグページ(http://www.ensembl.org/info/docs/api/debug_installation_guide.html)を見つけました。 C:\ src \ ensembl/misc-scripts/ping_ensembl.plを実行した後、上記のエラーメッセージが再び表示されます。
WindowsのPERL APIヘルプによると、「PERL5LIB = C:\ src \ bioperl-1.2.3; C:\ src \ ensembl \ modules; C:\ src \ ensembl-compara \モジュール; C:\ src \ ensembl-variation \ modules; C:\ src \ ensembl-funcgen \ modules "を入力します。それをしましたが、エラーは同じままです。このようなパス(C:\ src \ bioperl-1.2.3; C:\ src \ ensembl \ modules; C:¥src¥ensembl-compara¥modules; C:¥src¥ensembl-variation¥modules) modules; C:\ src \ ensembl-funcgen \ modules)を直接私のperlスクリプトに入れてください。これはうまくいくようです。おそらくこれはそれを行う方法ではありませんが、動作する限り、私は満足しています。
#!/usr/bin/perl -w
use lib "C:/src/ensembl/modules";
use lib "C:/src/ensembl/modules/Bio/EnsEMBL";
use lib "C:/src/ensembl-compara/modules/Bio/EnsEMBL/Compara";
use lib "C:/src/ensembl-functgenomics/modules/Bio/EnsEMBL/Funcgen";
use lib "C:/src/ensembl-variation/modules/Bio/EnsEMBL/Variation";
use strict;
use Bio::EnsEMBL::Registry;
my $registry = 'Bio::EnsEMBL::Registry';
$registry->load_registry_from_db(
-host => 'ensembldb.ensembl.org',
-user => 'anonymous',
-verbose => '1'
);
my $slice_adaptor = Bio::EnsEMBL::Registry->get_adaptor("human", "core", "slice");
get a slice on the entire chromosome X
my $chr_slice = $slice_adaptor->fetch_by_region('chromosome', '13', 32_889_000, >32_891_000);
print "#######################################################\n";
print $chr_slice->seq;
または代替的に:下記(BERT Overduinによって提供エクササイズに基づいて)スクリプト例を参照
#!/usr/bin/perl -w
BEGIN{ push @INC,'C:/src/bioperl-live','C:/src/ensembl/modules','C:/src/ensembl-compara/modules','C:/src/ensembl-variation/modules','C:/src/ensembl-functgenomics/modules';};
use strict;
use Bio::EnsEMBL::Registry;
my $registry = 'Bio::EnsEMBL::Registry';
$registry->load_registry_from_db(
-host => 'ensembldb.ensembl.org',
-user => 'anonymous',
-verbose => '1'
);
my $slice_adaptor = Bio::EnsEMBL::Registry->get_adaptor("human", "core", "slice");
get a slice on the entire chromosome X
my $chr_slice = $slice_adaptor->fetch_by_region('chromosome', '13', 32_889_000, >32_891_000);
print "#######################################################\n";
print $chr_slice->seq;