Récupérer des variables avec split
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:
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:
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
