Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/local/bin/perl
 
# As a first step, you have to generate a Bio::Grep database out of your Fasta file in which you want to search.
# A Bio::Grep database consists of a couple of files and allows you to retrieve informations about the database
# as well as to perform queries as fast and memory efficient as possible. You have to do this only once for every file.
 
use strict;
use warnings;
 
use Bio::Grep;
use Win32::Symlink;
 
 
my $sbe = Bio::Grep->new('Vmatch');
# define the location of the suffix arrays
$sbe->settings->datapath('P:/Perl/scripts2/Files/BioGrep_DB/');
 
mkdir($sbe->settings->datapath); 
 
# now generate a suffix array. you have to do this only once.
# generate a Bio::Grep database out of your Fasta file in which you want to search
$sbe->generate_database({
        file => 'P:/Perl/scripts2/Files/mycoplasma2.cdna',
        description => 'mycoplasma_sequences',
});
Error setting junction for \??\P:\Perl\scripts2\Files\mycoplasma2.cdna: Accès refusé.


------------- EXCEPTION Bio::Root::IOException -------------
MSG: Can't symlink P:/Perl/scripts2/Files/mycoplasma2.cdna to P:\Perl\scripts2\Files\BioGrep_DB\mycoplasma2.cdna
STACK Bio::Grep::Backend::BackendI::_copy_fasta_file_and_create_nfo C:/Perl/site/lib/Bio/Grep/Backend/BackendI.pm:450
STACK Bio::Grep::Backend::BackendI::_prepare_generate_database C:/Perl/site/lib/Bio/Grep/Backend/BackendI.pm:779
STACK Bio::Grep::Backend::Vmatch::generate_database C:/Perl/site/lib/Bio/Grep/Backend/Vmatch.pm:164
STACK toplevel Bio_Grep_DB.pl:40

------------------------------------------------------------
Je ne comprends pas pourquoi l'accès au fichier est refusé. Comment puis-je avoir plus d'informations sur la cause du refus?

Win32Symlink ne fonctionne que sur les systèmes de fichiers NTFS et c'est bien le système que mon WindowsXP utilise.


Merci pour votre aide,