Discussion :

[liodo]

Bonjour,

Je suis nouveau sur le forum et aussi en Perl.
Je suis confronter à un problème dont je n'arrive pas à résoudre.

J'ai plusieurs fichiers textes se trouvant dans un répertoire "test"

test/E-PAC78.txt
test/E-FNP31.txt
...
test/G-HTI04.txt

Chaque fichier possède des centaines de lignes commençant par des mots qui ne changent pas mais qui peuvent se trouver sur les lignes différentes.

J'aimerai récupérer 4 de ces lignes et stocker ces valeurs dans une base de données MySQL:

Voici l'exemple de structure de chaque fichier texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Supervisor Name          Jim Connor
Investigator Name         Janet Cerbo
Experiment           Heavy brain pressure with chloride at 0hr, 3hr, 6hr and 9hr
Patient Post Status         Live after 3hr        Dead after 6hr
Version        1.1
Observation        Addition experiments required
...

J'aimerais récupérer les informations relatives aux lignes commençant par :

Investigator Name
Experiment
Patient post Status

et les stocker dans une table d'une BDD MySQL ayant comme noms de champs ces dernières

J'a déjà parcouru le FAQ mais je n'arrive pas à comprendre comment m'y prendre.

Merci et bien à vous

[Jasmine80]

Chaque fichier possède des centaines de lignes commençant par des mots qui ne changent pas mais qui peuvent se trouver sur les lignes différentes.

J'aimerai récupérer 4 de ces lignes et stocker ces valeurs dans une base de données MySQL:

Tu dois lire le fichier et récupérer les informations via des expressions régulières, cf FAQ du forum

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
my @files_array = glob ("C:/.../*.txt");
 
foreach my $file (@files_array){
 
	open my $file_fh, '<', $file or die $!;
 
        my ($var1, $var2, $var3, $var4);
 
	while(my $line = <$file_fh>){
		if ($line =~ m//){
			$var1 = $1;
		}
		elsif ($line =~ m//){
			$var2 = $1;			
		}		
	}
	close $file_fh;
 
	# insérer les données des variables dans la DB
}

Pour ce qui est d'insérer les informations récupérées dans ta base de données, tu peux utiliser le module DBI, voir cours du forum et CPAN

[liodo]

Merci Jasmine,

Ca m'a beaucoup aidé.

Bien à vous.