IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bioinformatique Perl Discussion :

module Bio::Tools::Primer3 .


Sujet :

Bioinformatique Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut module Bio::Tools::Primer3 .
    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
    	# données pour primer3_core.exe
    	my $data;
    	foreach my $k (keys %parameter){
    		$data .= "$k=$parameter{$k}\n";
    	}
    	$data .= '=';
     
    	# création du fichier contenant les données
    	my $data_fh = FileHandle->new('>P:/Files/primer3_data.txt');
    	print $data_fh $data;
    	close $data_fh;
     
    	# passage du fichier contenant les données et création du fichier contenant le résultat
    	system('"C:/Program Files/primer3/bin/primer3_core.exe" < P:/Files/primer3_data.txt > P:/Files/primer3_result.txt') and print $!;
     
    	# read a primer3 output file
    	my $p3 = Bio::Tools::Primer3->new(-file=>"P:/Files/primer3_result.txt");
    Une fois les paramètres définis pour Primer3, je crée un fichier texte sous le format adéquat que je passe ensuite au software via la commande system. Il me reste ensuite à récupérer le fichier de sortie.

    Quelle façon plus simple et plus propre pourrais-je utiliser?


    Merci,

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Le plus simple et propre est d'utiliser le module Bio::Tools::Primer3 et Bio::Tools::Run::Primer3.

    Voici un exemple de script.
    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
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    #!/usr/bin/perl
    use strict;
    use warnings;
     
    use Bio::Tools::Run::Primer3;
    use Bio::Tools::Primer3;
    use Bio::SeqIO;
     
    # Fichier sequence consensus (Pense à remplacer les ? par des N)
    my $FichierSequenceConsensus = 'sequence_consensus.fsa';
     
    my $seqio              = Bio::SeqIO->new( -file => $FichierSequenceConsensus );
    my $seq                = $seqio->next_seq;
    my $primer3            = Bio::Tools::Run::Primer3->new(
      -seq     => $seq,
      -outfile => "primer.out",
      -path    => 'PATH/primer3_core',
    );
     
    # Exemple de parametres
    my %parametre = (
      PRIMER_OPT_SIZE => 20,
      PRIMER_MIN_SIZE => 18,
      PRIMER_MAX_SIZE => 27,
     
      PRIMER_NUM_NS_ACCEPTED     => 0,    # default : 1
      PRIMER_FILE_FLAG           => 1,
      PRIMER_PICK_INTERNAL_OLIGO => 1,
      PRIMER_EXPLAIN_FLAG        => 1,
      PRIMER_PICK_INTERNAL_OLIGO => 1,    # recherche sonde (bolean : default 0)
     
      PRIMER_OPT_TM      => 60,           # (float, default 60.0C)
      PRIMER_MIN_TM      => 57,           # (float, default 57.0C)
      PRIMER_MAX_TM      => 66,           # (float, default 63.0C)
      PRIMER_MAX_DIFF_TM => 2,            # (float, default 100.0C)
      PRIMER_MAX_POLY_X  => 5,            # (int, default 5)
     
      PRIMER_SALT_CONC => 50,             # (float, default 50.0 mM)
      PRIMER_DNA_CONC  => 330,            # (float, default 50.0 nM)
     
      PRIMER_LIBERAL_BASE => 1,           # (boolean, default 0)
    );
     
    # On applique ces paramètres
    foreach ( keys %parametre ) {
      $primer3->add_targets( $_ => $parametre{$_}, );
    }
     
    # Lancement de primer3
    my $resultats_primer3 = $primer3->run;
     
    # Nombre de résultat
    my $NombreResultat = $resultats_primer3->number_of_results;
    print "Il y a $NombreResultat resultats\n";
     
    # Lecture des résultats
    printf( "%-13s %-10s %-10s %-7s %-8s %-7s %-5s %-10s\n",
      'OLIGO', 'Start', 'Longeur', 'TM', 'Any', '%GC', "3'", 'Séquence' );
     
    for ( 0 .. $NombreResultat - 1 ) {
      my $resultats = $resultats_primer3->primer_results($_);
     
      # PRIMER_LEFT
      my ( $start_left, $len_left ) = split( ',', $resultats->{PRIMER_LEFT} );
      printf(
        "%-13s %-10s %-10s %-7s %-8s %-7s %-5s %-10s\n",
        'LEFT PRIMER',                        $start_left,
        $len_left,                            $resultats->{PRIMER_LEFT_TM},
        $resultats->{PRIMER_LEFT_GC_PERCENT}, $resultats->{PRIMER_LEFT_SELF_ANY},
        $resultats->{PRIMER_LEFT_SELF_END},   $resultats->{PRIMER_LEFT_SEQUENCE}
      );
     
      # PRIMER_RIGHT
      my ( $start_right, $len_right ) = split( ',', $resultats->{PRIMER_RIGHT} );
      printf(
        "%-13s %-10s %-10s %-7s %-8s %-7s %-5s %-10s\n\n",
        'RIGHT PRIMER',                        $start_right,
        $len_right,                            $resultats->{PRIMER_RIGHT_TM},
        $resultats->{PRIMER_RIGHT_GC_PERCENT}, $resultats->{PRIMER_RIGHT_SELF_ANY},
        $resultats->{PRIMER_RIGHT_SELF_END},   $resultats->{PRIMER_RIGHT_SEQUENCE}
      );
     
    }
    Dans ce script, tu as juste à modifier
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    my $FichierSequenceConsensus = 'sequence_consensus.fsa';
    pour y mettre ton fichier de séquence. Puis
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    my $primer3            = Bio::Tools::Run::Primer3->new(
      -seq     => $seq,
      -outfile => "primer.out",
      -path    => 'PATH/primer3_core',
    );
    la valeur de PATH doit être la bonne. Si tu ne souhaites pas spécifier PATH du tout, il faut que l'exécutable soit dans le répertoire courant.

    Voici le type de résultat que j'obtiens :
    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
    Il y a 5 resultats
    OLIGO         Start      Longeur    TM      Any      %GC     3'    SÚquence
    LEFT PRIMER   479        20         59.691  45.000   4.00    1.00  TTCTTCCTCGACTGGAAACT
    RIGHT PRIMER  716        18         59.890  55.556   6.00    1.00  AGGTCACCCAGGGGTATT
     
    LEFT PRIMER   479        20         59.691  45.000   4.00    1.00  TTCTTCCTCGACTGGAAACT
    RIGHT PRIMER  717        18         60.464  61.111   6.00    2.00  GAGGTCACCCAGGGGTAT
     
    LEFT PRIMER   479        20         59.691  45.000   4.00    1.00  TTCTTCCTCGACTGGAAACT
    RIGHT PRIMER  707        19         61.497  52.632   4.00    2.00  AGGGGTATTCGCCGTAGAT
     
    LEFT PRIMER   479        20         59.691  45.000   4.00    1.00  TTCTTCCTCGACTGGAAACT
    RIGHT PRIMER  706        18         60.568  55.556   4.00    2.00  GGGGTATTCGCCGTAGAT
     
    LEFT PRIMER   479        20         59.691  45.000   4.00    1.00  TTCTTCCTCGACTGGAAACT
    RIGHT PRIMER  715        18         60.880  61.111   6.00    2.00  GGTCACCCAGGGGTATTC
    J'espère que ça t'aidera.

  3. #3
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Merci pour ton aide.

    Voici le contenu de ma variable d'environnement :
    C:\Program Files\Mendeley Desktop;C:\Program Files\MiKTeX 2.8\miktex\bin;C:\Perl\site\bin;C:\Perl\bin;C:\oracle\ora92\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Fichiers communs\Adaptec Shared\System;C:\Program Files\Support Tools\;C:\Program Files\Fichiers communs\GTK\2.0\bin;C:\Cygwin\bin;C:\PROGRA~1\FICHIE~1\Odbc\FILEMA~1;C:\cygwin;C:\Program Files\QuickTime\QTSystem\;C:\cygwin;D:\AppliedBiosystems\SDS2.3\lib\algorithm\bin\win32;D:\AppliedBiosystems\SDS2.3\lib;C:\Program Files\SSH Communications Security\SSH Secure Shell;C:\WINDOWS\system32\WindowsPowerShell\v1.0;C:\Program Files\primer3\bin
    J'y ai rajouté le chemin vers Primer3 à la fin, via le panneau de configuration Windows.


    Pourtant avec ce script :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    #!usr/bin/perl
     
    use strict;
    use warnings;
     
    print join( "\n", split (/;/, $ENV{PATH}))."\n";
     
     
    if ( $ENV{PATH} =~ m/primer3/ ){
    	print "\n=>répertoire trouvé\n";
    }
    Je n'ai dans la liste que
    C:\Program Files\Mendeley Desktop
    C:\Program Files\MiKTeX 2.8\miktex\bin
    C:\Perl\site\bin
    C:\Perl\bin
    C:\oracle\ora92\bin
    C:\WINDOWS\system32
    C:\WINDOWS
    C:\WINDOWS\System32\Wbem
    C:\Program Files\Fichiers communs\Adaptec Shared\System
    C:\Program Files\Support Tools\
    C:\Program Files\Fichiers communs\GTK\2.0\bin
    C:\Cygwin\bin
    C:\PROGRA~1\FICHIE~1\Odbc\FILEMA~1
    C:\cygwin
    C:\Program Files\QuickTime\QTSystem\
    C:\cygwin
    D:\AppliedBiosystems\SDS2.3\lib\algorithm\bin\win32
    D:\AppliedBiosystems\SDS2.3\lib
    C:\Program Files\SSH Communications Security\SSH Secure Shell
    C:\WINDOWS\system32\WindowsPowerShell\v1.0
    C:\Program Files\SSH Communications Security\SSH Secure Shell
    Où est mon erreur? Dois-je faire redémarrer le PC?


    Merci,

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Je ne te parlais pas de variables d'environnement.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    -path => 'C:/toto/primer3_core',
    suffit

  5. #5
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Ok, merci.

    J'ai ajouté
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    -path    => 'C:/Program Files/primer3/bin/primer3_core',
    puis
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    -path    => "C:/Program Files/primer3/bin/primer3_core.exe",
    Dans les 2 cas, j'obtiens le message
    >perl -w Primer3_bis.pl
    Use of uninitialized value in concatenation (.) or string at C:/Perl/site/lib/Bio/Tools/Run/Primer3.pm line 257, <GEN0> line 1.
    Use of uninitialized value in -e at C:/Perl/site/lib/Bio/Tools/Run/Primer3.pm line 419, <GEN0> line 1.
    Use of uninitialized value in concatenation (.) or string at C:/Perl/site/lib/Bio/Tools/Run/Primer3.pm line 420, <GEN0> line 1.

    ------------- EXCEPTION -------------
    MSG: was not found. Do not know where primer3 is!
    STACK Bio::Tools::Run::Primer3::run C:/Perl/site/lib/Bio/Tools/Run/Primer3.pm:420
    STACK toplevel Primer3_bis.pl:53

    --------------------------------------
    Peut-être que dans Windows l'espace dans le chemin pose problème, non?

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    En effet oui. Il pose souci. D'ailleurs j'ai fait une correction du bug que j'ai soumis au CPAN et bioperl. Normalement, la correction sera faite pour la prochaine mise à jour de bioperl. En attendant, le mieux pour toi et de mettre l'exécutable dans le même répertoire que ton script et normalement, tout devrait fonctionner correctement. Et de préférence, évite de travailler sur des fichiers contenant des espaces dans le nom ou le chemin.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. options du module Bio::Tools::Run::Alignment::Clustalw
    Par Jasmine80 dans le forum Bioinformatique
    Réponses: 8
    Dernier message: 14/12/2010, 10h17
  2. Problème avec le module Bio::Tools::Run::Phrap
    Par Jasmine80 dans le forum Modules
    Réponses: 1
    Dernier message: 17/05/2010, 11h23
  3. Blast module Bio::Tools::Run::StandAloneBlast
    Par Jasmine80 dans le forum Bioinformatique
    Réponses: 0
    Dernier message: 21/12/2009, 10h33
  4. Réponses: 0
    Dernier message: 23/04/2009, 09h45
  5. Création d'une liste (module Bio::Tools::IUPAC)
    Par Jasmine80 dans le forum Bioinformatique
    Réponses: 2
    Dernier message: 23/03/2009, 10h22

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo