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)

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);
début du 2eme programme (récupération des variables)

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);
 
...
Est-ce que quelqu'un aurait une idée d'ou vient le probleme? merci d'avance