Discussion :

[morphemia]

Bonjour à vous,

je suis novice en Perl et je cherche à rendre automatique une tâche fastidieuse, je m'explique :
- j'ai un répertoire X contenant plusieurs sous-répertoires a b c d ...
- ces sous-rép 'a' 'b' 'c' 'd'... contiennent chacun un seul fichier Z en xml
- dans ce fichier Z il y a un texte par ligne avec des balise xml

Je cherche à faire un programme qui ouvre le répertoire X et qui lise tous les fichiers Z (contenus dans 'a' ou 'b' ou 'c'...) ligne par ligne et qui ajoute au début de chaque ligne la balise xml dans laquelle se trouve le nom du sous-rép 'a' 'b' 'c' 'd'...

exemple :

fichier entrée :
<texte> bla bla bla <\texte>

fichier sortie :
<a><texte> bla bla bla <\texte><\a>

J'espère avoir été claire dans mon explication.

Merci d'avance de votre aide.

[Dimitry.e]

Sans trop chercher dans le détail :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
 
 
my @files = <./test/*/*.txt>;
 
foreach my $f (@files) {
  open(F,$f) or print "Impossible d'ouvrir ".$f."\n" and next;
  $f=~/\/([^\/]+)\/[^\/]+\.[^\/]+/;
  while(my $l = <F>) {
    print "<".$1.">".$l."</".$1.">\n"
  }
  close F
}

[djibril]

Il y a des sources disponibles dans la rubrique Perl, il serait plutôt intéressant de les utiliser au lieu de réinventer la roue à chaque fois vu qu'ils sont là pour vous .

[morphemia]

Merci beaucoup Dimitry !
J'ai juste une question pour le programme soit parfait :
-mon fichier de sortie est comme ça :

<a><texte> bla bla bla<\texte>
<\a>

que dois-je changer pour avoir la balise <\a> sur la même ligne ?



Merci.

[morphemia]

j'ai essayé de personnaliser le code pour mon travail comme ceci :

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
23
24
25
26
27
28
use strict;
use warnings;
 
my @files = <./A61K/*/*.txt>;
 
foreach my $f (@files) {
  open(F,$f) or print "Impossible d'ouvrir ".$f."\n" and next;
  $f=~/\/([^\/]+)\/[^\/]+\.[^\/]+/;
  while(my $l = <F>) {
	chomp;
	$ligne=$_;
	if ($ligne =~ /^(.*)<ttp lng='eng'>(.*)<\/ttp>(.*)<reseng>(.*)<\/reseng>(.*)$/){
		$TITLE = $2;
		$ABS = $4;
		print "<title En> $TITLE <\/title><abstract En> $ABS <\/abstract> \n";
	}
	elsif ($ligne =~ /^(.*)<ttp lng='fre'>(.*)<\/ttp>(.*)<resfre>(.*)<\/resfre>(.*)$/){
		$TITLE = $3;
		$ABS = $5;
		print "<title Fr> $TITLE <\/title><abstract Fr> $ABS <\/abstract> \n";
	}
	else {
		print "<autre langue> \/autre langue>\n"
	}
	print "<".$1.">".$l."</".$1.">\n";
  }
  close F
}

mais il ne fonctionne pas, j'aimerai que le fichier de sortie affiche une partie de la ligne (titre+résumé).

est-ce un problème de variable ?

[Dimitry.e]

Tu n'as pas déclaré tes variables.
Ceci n'est pas correct :

Code :

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

1
2
3
4
 
while(my $l = <F>) {
chomp;
$ligne=$_;

Ce devrait être :

Code :

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

1
2
3
 
while(my $ligne = <F>) {
chomp $ligne;

Mon code fonctionnait à condition qu'il n'y ait pas d'autres expressions régulières ($1 représente le premier ensemble matché par la dernière REGEXP).