1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| # si la séquence a été copiée-collée
if ( $text_sequence->get() =~ m/>(.*)\n([\s\w]+)$/i){
my $seq_id = $1;
my $seq = $2;
#suppression des espaces et chiffres
$seq =~ s/[\d\s]//g;
my $ra = Bio::Restriction::Analysis->new( -seq => $seq, -is_circular => $is_circular );
my @frags = $ra->fragments($enz);
$result_tab{$seq_id} = \@frags;
}
else{
# vérification que le fichier d'entrée existe
# nb : il peut ne pas avoir d'extension
if ( !-e ${$input_file} ) {
&Error( $main, "Input file : doesn't exist\n" );
} |
