Voici l'interface :



Soit l'utilisateur fait un copier-coller de sa séquence (enter a fasta sequence), soit il entre un fichier (Or input a fasta file).
Je vérifie donc si une séquence a été introduite (widget type Entry). Si oui, je la récupère et dans le cas contraire je vérifie que le fichier existe et j'y récupère la/les séquences.


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
    # 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" );
	    }
Est-ce correct comme approche?


Merci pour votre aide.