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.
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");
Quelle façon plus simple et plus propre pourrais-je utiliser?
Merci,
Partager