Bonjour.
Je voudrai faire passer des variables d'un programme perl à un autre... j'ai donc fait un print des valeurs des variables dans un fichier texte pour ensuite les récupérer dans l'autre programme.
La création du fichier texte marche bien mais je n'arrive pas à les récupérer ensuite...(peut etre un probleme avec le split)
1er programme (principale.pl)
début du 2eme programme (récupération des variables)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 open(TRACE, ">variables_blast.conf" ) or die("création variables_blast.conf erreur : $!\n" ); print TRACE "$sequence_utilisateur|$choix_gene|$filename_out"; close(TRACE);
Est-ce que quelqu'un aurait une idée d'ou vient le probleme? merci d'avance
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 #!/usr/bin/perl -w use strict; use Carp; use warnings; use Bio::SeqIO; require "principale.pl"; main(); sub main { my $sequence_utilisateur; my $choix_gene; my $filename_out; open(TRACE, "variables_blast.conf" ) or die("lecture variables_blast.conf erreur : $!\n" ); $_ = <TRACE>; close(TRACE); ($sequence_utilisateur, $choix_gene, $filename_out) = split(/|/, $_, 3); ...
Partager