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,